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1.0 


TABLE OF CONTENTS 


1.0 ABSTRACT 
2.0 REQUIREMENTS 


2.1 HARDWARE 

2.2 PRELIMINARY TESTING AND PROGRAMS 
3.0 PROGRAM CONSIDERATIONS 
PDP-11 FAMILY COMPATIBILITY 
XXDP 


APT ETABLE_ DEFINITIONS 
Bunk ACCES 


a 
i 


FALL 
GOnREcT ION & reruns RATE ANALYSIS 
IBUS ADDRESSES & VECTORS 


ae ONS EWI 
ae 
a 
4 


WWIII INI U9 Ud 


: 
S 
AU 
| 
g 
g 8 


4.0 


is ah ie 
4"y ni GIS BR 
ae INPUT 
4:8 Proaneh BX 


5.0 DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 


5.1 GENERAL 
$.e2 TEST DESCRIPTIONS 


6.0 ERROR REPORTING 


B:3 ERROR PRINTOUT EXAMPLE 


ABSTRACT 
THIS eae THE DISK Ts PART TRPRRLE THE OFT PROPERLY PERFORMING | 
AL RATOR I 


ERROR DETECTION Tenet to CHECKED ie. MANUAL & SOFTWARE ERROR FORCING. 


BOE Oe Re (WITH _NO Rey OF nas PART, 


IT CAN BE ASSERTED THAT THE KOS DRIVE BILL © aK SUCCESSFULLY 


SDONTN fw OSS VERE OH obo 


Puaranfupthpo-=esse=zeesons enon eceneeceaepepeeaen crete pes 
be 


= hb b= bP bs b+ bh bh Pe 


AGAYSSSKAESSAS SBIR REONOS BBV MD 
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2.0 
2.1 


2.2 


3.0 


3.1 


3.2 


IN THE STAND-ALONE MODE. SYSTEMS INTERACTION, & ERROR RATE 
ANALYSIS ARE LEFT TO OTHER PROGRAMS. 


BESTE Lok TC TESTS AND. PROCEEDING THRU DYNAMIC TESTING 
TESTS WILL BE KEPT SMALL TO FACILITATE SCOPING LOOPS 
#24 CAUT I ON 


I Fie ya a AT THE END OF A PASS, 
ney AERWE THe ofRORERS IN THE DISK CARTRIDGE IN AN 


REQUIREMENTS 
HARDWARE 


THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC: 


eu TAS ena (RK611) 


8 B RKOE DRIVE 
NOTES: 1. ITHER KW11-L OR P CLOCK IS USED, ALL TIMING 
Eo RE TEL Be BYPASCED. “A NESGAGE At THE 


BEGINNING OF THE TESTS WILL CONFIRM THIS. 


2. THE PROGRAM CAN WORK OFF EITHER FORMATTED OR 
NON-FORMATTED PACKS. 


PRELIMINARY TESTING & PROGRAMS 


SEQ 0003 


PES SP HR REIL AL RMIT SHAR PETE, SLD FaRST an sucess 


PROGRAM CONSIDERATIONS 


PDOP-11 FAMILY COMPATIBILITY 


THIS PROGRAM CAN BE USED BY THE POP-11/04,05, 10,20, 
34,35,40,45,50, & 70. 


The RuGe ONLY TF THE DRIVE CONTROLLER FOR THE tSI-11 1s 


DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE RK611. 


XXDP 


- 


UNIBUS RK6 DRIVE 5 ag a PART 3 
DZR6JD.P11 11:05 


2 | 


ies 
1S6 
157 


1S9 
160 
161 
162 
163 
164 
16S 
166 
167 
168 


8 


GEURR EONS BS GRRE ORS SR TRACERS dal Volo Sas 
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3.3.1 


MACY11 27(1006) 31-JAN-77 18:30 PAGE 4 SEQ 0004 


THIS PROGRAM SHOULD NOT BE CHAINED BY XXDP. 
CHAIN MODE OPERATION (MONITOR) 


BY DEFINITION, ANY PROGRAM THAT REQUIRES 
OPERATOR INTERVENTION SHOULD NOT BE CHAINED. 


DUMP MODE OPERATION (MANUAL ) 


: PUES ee 


SSAGE T 
Se Fink colo een bine 


hig SPERATOR IS FIRST GIVEN 
K IN DRO WITH A SCRATCH 


ACT/APT 


THIS PROGRAM IS ACT COMPATIBLE. 
HOWEVER, IT SHOULD NOT BE RUN IN THE AUTO MODE. 


AUTOMATIC MODE (MONITOR) 
BY DEFINITION, ANY PROGRAM THAT REQUIRES 

OPERATOR INTERVENTION SHOULD NOT BE 

RUN IN THE AUTO 

DUMP MODE (MANUAL): INPUT DIALOGUE IF STARTED FROM 220. 

APT ETHALE DEFINITIONS 

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL 
TABLE (ETABLE) ENTRIES, VIA RUNNING THE APT UTILITY PROGRAM “TSP” 


MEL TE BP geniet 1P none 
=0 IF ST 


_ a Ry tee SIZING 
-. cee tFPTNG 
BIT & = : SSAGES TO NAPT IF SCRIPT MODE 
BITS = ; OUTPUT 


ALLOW OUTPUT 
BITS 4-0 NOT USED 


te etwintrednt nook BIT? (Sizine BIT) 1s SET 10 1, 


aera eR Ait ein See” 
WHEN RUNNIN tN OT AROAL ONE Nove IN MOPTCSERIPT MODE, 
HOWEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS BE SET 
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rururuorurururururor 
hh 
WOnNWUI CWO 


See RRR ISRES 


FeaASRBIR ES 


pea at nab asad dh ual aie eR 


TO O. 
4. SWITCH 2 (USER SWITCH REGISTER) 
NOT Seb 


S. CPU OPTIONS: 
NOT USED 
&. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 


NOT USED 


7. INTERRUPT VECTOR 1 
USED WHEN ENVIRONMENT MODE BIT 7 


8. BUS PRIORITY 1 
USED WHEN 


1. DEFAULT = 210 


ENVIRONMENT MODE BIT 7 = 1. DEFAULT = S 
9. INTERRUPT VECTOR 2: 
NOT USED 
10. BUS PRIORITY 2: 
NOT USED 
11. BASE ADORESS 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440 
12. CE MAP: 
WEN ENVIRONMENT BIT 7 = 1. EACH BIT 


DRIVE TO BE TESTED. BITS 8-15 ARE NOT USED. 


13. CONTROLLER DESCRIPTOR WORDS: 
NOT USED 


14. DEVICE DESCRIPTOR CODES (IN WORDS): 
NOT USED 


DUAL ACCESS 
S PROGRAM WILL NOT TEST OR SUPPORT DUAL-ACCESS. A DRIVE 
EautPeD WITH DUAL ACCESS MUST BE SWITCHED TO THE PORT UNDER 
PREVENT CONTENTION WITH THE OTHER PORT. 
DUAL ACCESS TESTS WILL BE INCORPORATED IN A SEPARATE PROGRAM 
AT A LATER DATE. 
MEMORY MANAGEMENT 
MEMORY MANAGEMENT NOT USED 
PARITY CHECK ENABLED 


IF THE MEMORY PARITY CHECK OPTION IS eo ON THE SYSTEM, 
THE PROGRAM WILL RUN WITH MEMORY CHECK ENABLED. 
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266 
267 3.7 BAD SECTOR 
g OMPARE DATA WITH THE SECTOR 
$33 Ineo RI oR TON contalneD ON CYLINDER 410, HEAD 2. PRINTOUTS 
271 A ERRORS DUE TO BAD SECTORS/ TRACKS WILL BE MASKED OUT 


rm 
3 


3.8 EXECUTION TIME 
TOTAL TIME: ee S MINUTES TO DO ALL THE TESTS 
(BASED ON THE POP 11/50) 
3.9 FAULT ISOLATION 
TO BE DETERMINED. 


3.10 ERROR CORRECTION AND FAILURE RATE ANALYSIS 
THIS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE 
ANALYSIS. 


3.11 DEFAULT UNIBUS ADDRESSES & VECTORS 


THE FOLLOWING IS A LIST OF ALL DEFAULT ADDRESSES & VECTORS 
HARDWARE TO BE USED & THEIR MEMORY ADDRESSES 
WHERE THEY CAN BE CHANGED. 


SRR TERE SSE NR SUR ESE SRR EERO R a tools 


LOCATION DEFAULT CONTENTS 
RKO6 BUS ADDRESS 1264 177440 
CONTROLLER INTERRUPT VECTOR 1334 210 
CONTROLLER PRIORITY 1336 240 
P-CLOCK STA G 1340 172540 
P-CLOCK 1342 172542 
P-CLOCK 1344 172544 
L-CLOCK STATUS REG 1346 177546 
L=-CL CTOR 1350 100 
P-CL CTOR 1382 104 
TTY TATUS REG 1144 1 

1146 1 
TTY PRI STATUS REG 1150 1 
TTY PRINTER BUFFER 1152 177566 


4.0 OPERATING PROCEDURE & CONTROL FUNCTIONS 


4.1 PROGRAM LOADING 


THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD 
PROCEDURE FOR ABSOLUTE LOADER TAPES; OR FROM ANY MEDIA 
SUPPORTED BY XXOP. 


WWI) WIG GIG) G) 
eh he 
MONOUCWNS oO 


320 


8 
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4.1.1 


4.1.2 


4.1.3 


4.1.4 


4.2 


LOAD THE STARTING ADDRESS (SEE SEC 4.2). 
SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3). 


SET DRIVES TO BE TESTED IN THE ’LOAD’ CONDITION & WITH THE 
APPROPRIATE PORT SELECTED 8 WRITE LOCK DISABLED. DRIVES 
NOT TO BE TESTED MUST HAVE BOTH PORTS DESELECTED. 


mT: SRO Te NERA AE SHE 


PRESS ’START’ 


mR 
@ 
=z 
D 


wT, igen Fhe ITSELF AND WILL I 
DIRL OGLE HIT eit HE TO DETERMINE DRIVES TO BE TESTED 


THE 
THE INPUT DIALOGUE. IF A SPeCIFI 
IT WILL 


STARTING LOCATIONS 

LOCATION Ropes 5 TE ee S 

_coomypeteate 3 ZONTROL TERRUPT VECTOR 
ALL DRIVES IN THE DRIVE PRESENT’ 

NOTE: THE nie HE ont CONDITION IS: 


8. CORRECT PORT SELECTED 
5: ARNE RRB TRREERRon on 


LOCATION 220 - STARTING ADDRESS TO INPUT TESTING PARAMETERS 


coir: NnFERRUPT VECTOR INBUTYED ONLY of 


IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 


UNI 


SB SRREDRESEEIRRLORS SoBe RR EER CESS 


22 
— 
— 


28-JAN-77 
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4.3 


4.3.1 


4.3.2 


4.3.5 


4.3.6 


CONSIDERATIONS IN SECTIONS 3.2 & 3.3. 


SWITCH REGISTER 
THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 
SWITCH FUNCTION 


ge 
337 


THE PROGRAM sence ON ENCOUNTERING AN eo Ae AFTER TYPING OUT 
NUE 


THE ERROR, NES RTINENT INE ORMA 


43 NORMAL OPERATION OF THE PROGRAM. 
SW< 14> 


TE SAT HGF BR. ™MELAING 18 SEO 


SW< 13> 
DSHS LY ULE BNE RY ER IBY USED MN 


SW< 12> 
THIS H 5 pei TeH grees A GIVEN DRIVE AFTER 20 ERRORS HAVE 


SW<11> 


EAC TEST WILL BE EXECUTED ONL NORMALLY AFTER THE 


(USUALLY 20, °c ee IN SOME C oH NE tied err 
ITERATIONS, 's6 Thai QUICK PASSES CAN BE 


SW 10> 


RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPEOUT IS Inarer tt. 


SEQ 0008 
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28-JAN-77 1 
434 
43S 
is 4.3.7  SwW<0% 
438 THIS SWITCH BY GHTEST POSSI OPE LOOP FOR 
439 e- PROGRAM DE CTS AN E » IT WILL LOOP BACK 
THE BE FING OF TeeT 


4.4 *SOFTWARE’ SWITCH REGISTER 
ne eit a s oe ON_A ne eee Canter ec (I.E. AN 11704 OR 11734) 
a noe anes HARDUARE Sut CH REGISTER IS 
ae TCH REGISTER. THE 
ITCH TION 176 (8). THE 
INGS oF 
CED oe A "CONTROL G’. 


ME CONTROL" AT _ TIME EXCEPT WHEN 
PRIORITY PROCESSING AN gy Fa INTERRUPT . 


ST Fon THE SHI TCH ENTRY ROUTINES 
SWR = NNNNNN NEW = 

TI T ING ENTIRE SWITCH REGISTER 

free St ee ENTERED. TUEADING ZEROS | SOT REQUIRED” 
"CONTROL U’ FUNCTIONS MAY BE SED TO CORRECT TYPING 
ERRORS Reeee DURING SWITCH ENTRY. 
TH HOROHERE SWITCH REGISTERS, Te " SOF THARE 

aurren GIS Y BE USED. FINDS 
IN THE ’UP’ POSITION SWITCH REGISTER REFERENCES WILL 


P BE 
0 REGISTER AND THE PROCEDURES DESCRIBED ABOVE 
must Be POL CRED. MED 


4.5 INPUT DIALOGUE 
REGLEST A PERGTETER BY CONSOLE TYPEOUT.” THE PRROVETER Pi 
DEN eel hfs UAB SES Ge HOMER "BORSA! us 


I 
BE ECHOED BACK FOLLOWED BY "?". THE PROPER RESPONSE MAY 
THEN BE ENTERED. 


IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 8 3.4. 
4.5.1 DRIVE SELECTION 
THE REQUEST WILL BE: 
DRIVES TO BE TESTED: 
THE DEFAULT RESPONSE IS CARRIAGE RETURN TO TEST ALL DRIVES 


SHIRREGRO BIA VAAS In Ioe PATO he BOM IMA TORNO Sa eA oRTS 


is 
SRAPEES Sh 


$8 


A. 
— 


Be 


St adat 


WIUTUTUTU UU 
WOnNMU CWO 


2 
Ba 
z 
x 


So RTE R SST IN RR PONS 


StSR= 
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4.5.2 


4.5.3 


4.5.4 


IN THE "DRIVE PRESENT’ CONDITION. 


THE OPERATOR CAN ALSO TYPE IN cere DRIVE NUMBERS 
i Re SEPARATED BY & NATED BY A CARRIAGE 


E.G. ORIVES TO BE TESTED: 1,2,4,6 
IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 8 3.3. 
BUS ADDRESS 
THE REQUEST WILL BE: 
TYPE IN BUSS ADORESS IF NOT 177440 
THE DEFAULT IS A CARRIAGE RETURN 


CONTROLLER INTERRUPT VECTOR 
THE REQUEST WILL BE: 

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 
THE DEFAULT IS A CARRIAGE RETURN. 


EXAMPLE OF PROGRAM DIALOGUE 


THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220. 
ALL OPERATOR RESPONSES ARE UNDERLINED. 


UNTELS mts DRIVE DIAGNOSTIC 
MAINDEC-11-DZR6J-D-PB 
DRIVES TO BE TESTED: 1,3<CR> 


TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 


TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR> 


WILL TEST DRIVES: 


DRIVE 1 
(THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW) 


SREB SRREO RE Bod lol Sono CeCe TORS COMMON ese e i 


$58 


ORI Se TiC. PART 3 


Pl 


— 


4.6 


4.7 
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PROGRAM EXAMPLE 

DEFAULT ADDRESS (C00) f ITH 2 DRIVES ON TE Linen 
UNIBUS RKO& DRIVE DIAGNOSTIC 
MAINDEC-11-DZR6J-D-PB 
-_ TEST ORIVES: 
1 
DRIVE 0 


CARTRIDGE SERIAL NO. 888 


DRIVE 1 


ORE Dee cee Mm & en 


END PASS #1 


WILL TEST DRIVES: 

i 

DRIVE 0 

DRIVE 1 

END PASS #8 2 
(ETC) 


THE NUMBER OF PRESES fs DETERMINED BY ACT/APT/~xxDP 


IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 8 3.3. 


HALTING THE PROGRAM 

T A MET 
THE CARTRIDGE RNO/OR DRIVE: 1 
STATE; IE: HEADS UNL 

TO PROPERLY HALT, TYPE CONTROL-C (tC) ON THE CONSOLE. 
IF HEADS ARE LOADED & FORMATTING IS VALID, 

THE PROGRAM WILL: 


OF HALTING ITSELF SUCH THA 
NOT LEFT IN ON UNOE TERMINED 
INVALID FORMAT. 





SEQ 0011 


g 
5 


RK& DRIVE DIAGNOSTIC PART 3 
-Pll  28-JAN-77 11:05 


SSO RReOR ‘ 


PCONMKMONO 
be bh bh be = bm he 
OVOW £ wre O 


BSS GRRE GRAS OBIE R OS RO NON EON oes 


o 
wi 
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5.0 
S.1 


S.2 


Sey Mee 


IF HEADS ARE ve LOADED AND/OR FORMATTING IS INVALID, 
PROGRAM WILL 


THE 
; Saya pene porn raven 
go Mat eee 


abe TRARY iF te Poor ie mien Getta 
Te Be HOTT cle FE be TL ty oe 


THE TYPEOUTS WILL = “ABORT OT ee WAIT" 


2 PRBCRAN TO TEST Y MERE TES Ine au BEGIN GIN fi TH st TBRIVE AGAIN. 


DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION. 
GENERAL . 
OPERATOR INTERVENTION TESTS 


THESE TESTS CHECK OUT ALL THE DRIVE INTERLOCKS, FRONT PANEL 
SWITCHES AND LIGHTS. 


BS ROU SOE Om # TE 


Bea REP ltt Be Ear 


| fe pth ES He OY Ba Me Te i 


Ratt RETA cAMP ne | 


TEST DESCRIPTIONS 


SEQ 0012 


2 
5 


BEB SRRE BR OB da doll tonic oe Orne Dee bow ‘ 


row 
0 
= 


SEIRREGRSS SEGARA LOR 


NNNN 
oes 
wrreO 
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JHHHHHHIEHHIHHIIH}HIHIHIHHHHHHIH HEHEHE EEE 
IC CON R TESTS, SIZING & SETUP 
TTiTiritiiitiiirtiiitiiitititiitiitititerieet eet eet ieereedyy 


TEST 1 REFERENCE ALL CONTROLLER REGISTERS 
THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS 
CAN BE ACCESSED. THE INABILITY TO BE ACCESSED WILL 
RESULT IN_A TIMEOUT TRAP WITH AN ERROR MESSAGE. ANY 
ERROR IN THIS ay wt RESULT_IN ABORTING ALL OTHER 
TESTS AND JUMPING TO ‘END OF PASS’ 

TEST 2 SIZE THE BUSS 


THIS TEST IS ENTERED ONLY IF "DRIVE SELECTION’ IS DEFAULTED 
EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE 


MANUAL 
Seal ie Pa DEY TRUER, oc war oct, ne 
ORLY NG Ha Fonte o ONLY te he EhBok tne a WAS A ae OF 


OR Tie OF NSD eee oan OR Ms Ms & DRA RESET IN- 

TEST 3 VERIFY OPERATOR DRIVE SELECTIONS 
OS TES PRG ae BM GE 
Perel ie ee nie et 


SET, THAT DRI “MILE BYPASSED 


ONLY TF THe ee ALRESILT OF NDS E SET OR BOTH 
NED ONY Pe tS cree CHECKED "Raat te cera fs INFOR TO 
VERIFY It WAS NO FIED 


TEST 4 FINO NEXT DRIVE TO BE TESTED 
THIS aT FT THE NEXT DRIVE PRESENT & PUTS THAT 
EERE Jeke ORI A ORME TESTED 
TEST S PRINT DRIVE SERIAL NUMBER 
THIS TEST READS & PRINTS THE DRIVE SERIAL # FROM MSG A, WORD 11 
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a IN DECIMAL & IS PERFORMED ON THE 1ST PASS ONLY 

716 

ote TEST & SET VV WITH PACK COMMAND 

719 IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 


TEST 7 UNLOAD DRIVE TO BE TESTED 
THIS TEST UNLOADS THE DRIVE TO BE TESTED NEXT 
WAITS FOR ATTN & VERIFIES IT CAME FROM THE CORRECT DRIVE. 


SEE AE EE SEE HE SE SE HE HE EEE SE SE SEE ab a a a a aa a a aa a a HE 


OPERATOR INTERVENTION TESTS 
JHHHHHHIEHHIHE}HHIHHHHIHHHHIHIHHHHIHHIHHHHHHHHHIH HEHEHE 


TEST 10 INTERLOCKS TESTS 
REE OPERA VERIFIES THAT THE DOOR & CARTRIDGE STATUS BITS 


TING pe eT ew & THAT THE REMOVAL 


tf FURTHOR ne: as 5 Ptamias STATUS BITS OF 

mie TEST tL CHE Tat’ THE SPINDLE CANNOT BE STARTED 
WHEN THE Re oN OR CARTRIDGE 

IT ALSO VERIFI T LOSS OF VOLUME VALID RESETS SACK WHICH 
ASSERTS NON EX 


TEST 11 UNIT SELECT PLUG TEST 
THIS TEST VERIFIES THAT WHEN THE UNIT SELECT PLUG 


TEST 12 PORT SELECTION TESTS 


THE OPERATOR IS — TO SWITCH TO THE WRONG PORT 
& THEN DESELECT BOTH PORTS. 
IN BOTH CASES, NON EXISTENT DRIVE SHOULD ASSERT IN RKCS2 


TEST 13 AC LOW DETECTION PART 1 


A PRELIMINARY AC LOW TEST IS per certo HERE WHILE HEADS ARE UNLOADED. 
BATTERY RETRACT WILL BE TESTED LAT 
ACLO CANNOT BE TESTED DIRECTLY SINCE IT REQUIRES 


CELERON SAUNT URE SS SRA ESSE STRUM TORO MTSU TORS 


2 
Bs 
z 


bo 


Ce tuenneret titi RARE RARE é 


- 
uJ 


eiajetoteteta 


ee ee ee 
WONOU CWO 


RESRSS 


vw 
bo 
ca 
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TEST 14 


TEST 15 


TEST 16 


TEST 17 


TEST 20 


TEST 21 
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Pec ton ope ae’ I.E. eroe 
Ma a NOICATOR ¢ CKED. is yr a 

BEG ASDA GPT NAMETC GE EDNG & BeBe, 
CHECK NXF LOGIC 


furs reat Y VERIFIES CUTABLE FUNCTION (NXF) IS DETECTED 
DOING A WITH VOLUME VALID RESET. 


READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL 8 
THIS TEST VERIFIES THAT C aid TRACK 2 CAN BE READ. 
THIS AREA AINS BAD SECTOR INFOR WHICH IS WRITTEN BY THE 
T GURING MANE. CTOR INFOR (BSE) WILL BE ST 
AT THIS 0 MASK OR DATA ERROR PRINTOUTS 
0 T BE READ, OR IF AFTER READING THE BSE INFO 


TT Pe pete FRED THAT AR TRIDGE IS USED 
Lae ee alee are 
FUT RE: 

THIS IS DONE SO AS NOT TO DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRIT 
THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 


WRITE LOCK TEST 
ALTERED Once fhe ‘onl Te 1 bara cn NON 8S A le il CANNOT BE 


THAT in PRO S CT ONLY A 
sf BOUNDARIES Ua ag ay TTING ON CYL 0, HEAD 0 
AC LOW DETECTION PART 2 


TOSI SDGHEE TATUM CTR Ny set eS 
THERE IS APPROX 4 TING AND NED ASSERTING 
WHEN THE INTERFACE "Sats MOOUN. 


END OF PROGRAM 

THIS 13 Wor A TEST BUT A LINK TO PERFORM ALL THE 
ABOVE TESTS FOR THE NEXT DRIVE SENT. 

THE 428 T IS ENTERED ONLY AFTER ALL ORIVES PRESENT 


DO NOT LOOP ON THIS ’TEST’. 


MULTIPLE DRIVE DETECTION TEST 


UNTBUS ry DRIVE DIAGNOSTIC PART 3 
DZR6JD.P11 77 11:05 


PRESS SO TSE SSE CER SERY ESUBRIERPS SE LeAICA TSIEN aE 
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6.0 


6.1 


THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PASS 1 
AND IS BYPASSED IF ONLY ONE DRIVE IS PRESENT. 


THE MULTIPLE ORIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD: 
a: Rie ¥ Loe WeFED To TRGERY THe. UNIT SELECT 
‘ d PATER At A TIME) ORE ON ANY IVES 


10 Be 
Cc. THE THEN DEPRESSES THE SPACE BAR TO CONTINUE THE TES 
OR A CONTROL-C TO EXIT THE TEST 


THE PROGRAM VERIFIES THAT MULTIPLE DRIVE SELECT 8 DRIVE UNSAFE 
BOTH SET & THAT THE DRIVE UNLOADS 


THE OPERATOR IS ASKED TO VERIFY THAT HEADS UNLOAD FROM BOTH DRIVES 


THE PROGRAM oe NOT REQUIRE FORMATTED PACKS AS FORMATTING 
Is PERFORMED IN ANY CASE. 


ANY TEST THAT MODIFIES STANDARD FORMATTING IS FOLLOWED BY A 
echent UP’ TES% 70 THOSE CYLINDERS BACK TO STANDARD 


PUT 
4 
™ 
ERROR REPORTING 


ERROR INTERPRETATION 


AN ERROR MESSAGE IS PRINTED OUT, ALL _PEGISTERS 
AND BND OTHER DATA PERTAINING TO THE ERROR ARE AL 


CONTENTS OF Fe COARESPORDING REGISTERS Royse ne, oF 
POeTT On InP PROGR ERE Te ERAOR CALL TS CORATED THe 


ot gal ge CAL. CONSIDERATI ONS IS MADE 


Sor Drea STING HERE HE HILL PINS HORE INFORMATION 
GIVE RISE 0 MORE 4 a Oa a 
INNING VERY TEST. ALL THE NUMBERS GIVEN WITH ERROR 

MESenGeS ARE. IN 
NOTE 


NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED. 


[Vel¥elWelvelvelvel¥elvcl¥el¥e] 
ee 
WONOW £CWwE oO 


RES 


5 
SOUR RECN See RR LOR Bee RR EOS i 


wR 
—o 
3 
lon) 
' 
ao 
= 
8 
——) 


os 
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MACY11 27(1006) 31-JAN-77 18:30 PAGE 17 


6.2 


ERROR PRINTOUT EXAMPLE: 


DEPRESS *RUN-STOP’ SWITCH TO ’RUN’ WHILE DOOR OPEN 
VERIFY SPINDLE DOES NOT START & HEADS DO NOT LOAD 


DEPRESS SPACE BAR WHEN FINISHED 


SPINDLE ON SET IN RKMR2 
AFTER MANUALLY LOADING HEADS WITH DOOR OPEN 


o68010. "015700 

10 Ol 

RKMRe RKMRS RKER RKDS RKCS1 RKCS2 RKASOF 
OS0343 100000 000000 140301 O40e00 000103 004000 


MESSAGE AD ERROR 
AFTER MANUALLY LOADING HEADS WITH POOR OPEN 


TEST NO. PC 
000010 015736 
EXPE 


AQ BO Al Bl Re Be B3 
100143 i ng 000S43 000001 

0S0343 poooge 001723 000001 

RKCS1 ait RK RKER  RKDS RKDC 
040200 0001 004000 O00000 140301 O00000 


THE ABOVE EXPECTED & ACTUAL DATA FOR 
MESSAGE BISTERS AO, BO, Al & Bl. 


MESSAGES A2, Be & B3 WILL BE TYPED OUT ONLY AS REQUIRED 
IF THE CYLINDER DIFFERENCE/OFFSET, CYLINDER ADDRESS & 
7 INFORMATION IS A VARIABLE PARAMETER OF 


[ END OF DOCUMENT ] 


SEQ 0017 


IAGNOSTIC PART 3 
11:05 


UNTBUS 
OZR6JD. 
$23 
$24 
92S 
$26 
3 
$30 
$31 
932 
933 
934 
93S 
936 
937 
938 
$39 
340 
S41 
Se 
S43 
S44 
S45 
S46 
S47 
S48 
949 
950 
951 
32 
353 
954 
955 
956 
957 
958 
959 
960 
961 
S62 
963 
964 
965 
966 
967 
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;##% PGM he ne + RES 


ares 


AMA 
;DEFINE SYSMAC MACROS 
SSWR= 167400 ;DEFINE SWITCHES 15, 
SiN 1 ;SET FIRST TEST NO 


“ SCOPYRI aS RK&_ DRIVE DIAGNOSTIC PART 3 
1976 
; #OIGI TAL EQUIPMENT CORP. 
*MAYNARD, MASS. 01754 


;# 
; PROGRAM BY GARY PAPAZIAN 


i 
#THIS PROGRAM WAS Roser ED LS! NG THE POP-1 
{PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 197 


*SBTTL OPERATIONAL SWITCH srvenat 


LOOP 


pegregreprogregengreurenrenrenrer 


eh ete te tee te re Te 7) 


TTL SUMMARY OF STARTING LOCATIONS 


ee 
240 ODT11 


a 


ay MAINDEC SYSMAC 


ERROR 
LOOP ON TEST IN SWR<7:0> 


PPeirciit RP RT RE RMEe et at Ltt RERER RRR SaaS 


Oo0000000 
bo bs bb bb pm hs 


hs bh bb Be Bo Be Bb bt BP bm be Pe be 
MONO £Wl--O 


SRE 


RK& DRI IRagS TTC PART 3 MACY11 ) 31-JAN-77 18:30 PAGE 19 
Pil ¥5-SaN- 11:05 BASIC FLATT TONS papas 


-SBTTL BASIC DEFINITIONS 
- INITIAL —_— OF THE STACK POINTER ### 1100 ### 
= ll 


001100 eT 
-EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT; SCOPE :BASIC DEFINITION OF SCOPE CALL 
-#MISCELLANEOUS DEFINITIONS 
000011 T= il $3 FOR HOR ZONTAL TAB 
vied ote LF té FOR KS 
000200 CRLF= 200 ES RET URN-LINE FEED 
177776 PS= 177776 1 ee toe 
: EQUIV PSW ~ 
eee Ais Bt feaaa HH SBF RE ouest REGISTER 
177570 DSWR= 177570 fir SuITCH REGISTER 
177570 DDISP= 177570 *HARDWARE DISPLAY REGISTER 
-#GENERAL PURPOSE REGIS IT 
ae: "Tiere RESTSTER 
Rl= 
Re= be $3 REGISTER 
R3= %3 >:GENERAL REGISTER 
2 “4 33 Rie 
RS= %S 3 GI 
Rb= % 33 GIS 
R7= “7 3 GENERAL REGISTER 
PC= 3 + PROGRAM BINTER 
-#PRIORITY LEVEL DEFINITIONS 
PRO= 0 Heaton LEVEL 0 
Paes {bo + Prion TY LEVEL A 
= 140 :PRIORITY LEVEL 3 
= j PRIORITY t 4 
= y i3PR TY S 
= C *PRIORITY LEVEL 6 
= 340 ‘PRIORITY LEVEL 7 
-#"°SWITCH REGISTER” SWITCH DEFINITIONS 
GwiS= 100000 
Swl4= 40000 
SWi3= 20000 
SWi2= 10000 
SWil= 4000 
SWi0= 2000 
SwO9= 1000 
SuOs= 





) bbe 
*SS5585 


E 
ve 


UNT ~ DRIVE DIAGNOSTIC PART 3 ne IR AEE 31-JAN-77 18:30 PAGE 20 SEQ 0020 


) 
28-JAN-77 11:05 INITIONS 


000002 
000001 


S22SRBRRRSRROSEERERE Ge 
eece z 
ERRESaRaeS 
eeereeyrye 





“EQUIV 
-#DATA BIT DEFINITIONS (SITOO TO BITIS) 
J 100000 BITIS= 1 
1 040000 114s 
1 020000 T13= 
1 010000 ITle= 1 
1 004000 BIT11= 4000 
} 002000 BIT10= 2000 
1344 001000 BITO9= 1000 
1045 400 
1046 = =O 
1047 000100 T I 
1048 000040 BITOS= 40 
1049 000020 BITO4= 20 
10S0 000010 BITO3= 10 
1051 o00004 BITOe= 4 
1052 ooo00e BITOI= 2 
1053 000001 TOO= 
1054 -EQUIV 8IT09,81T9 
1055 “EQUIV BITO8,BITS 
1056 “EQUIV BITO7,B1T7 
1057 EQUIV 1106, BIT 
1058 “EQUIV BITOS,BITS 
1059 -EQUIV BITO4,BITY 
1060 -EQUIV BITO3,BIT3 
i HY 
ioe . au v BITOO; 16 
108s jxBASIC cpu" TRAP VECTOR ADDRESSES aoe anal 
1067 weeath ; = 10 He AND PLE CAE INSTRUCTIONS 
1 000014 =14 He BI 
1068 000014 TRIVEC= 14 +: TRACE TRAP ro 
8 ee 
1071 fonvecs $4 iT PREON OUTPUT TRAP’ (LOT) *¥SCOPEXs 
1073 wivets So EMATOR TRAP (EMT) *#ERROR#* 
eeeaxe +4 33 
ine: | Taapyec=4 38 YOCERD 
1076 1PVECe 64 Bry PRINTER seron 
= ee 
000240 PIRQVEC=240 : : PROGRAM TER ENBLIPY REQUEST VECTOR 


ee ed oe 


-SBTTL RKO& CONTROLLER REGISTER DEFINITION 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) 31-JAN-77 18:30 PAGE 21 SEQ 0021 
OZR6JD.P11 28-JAN-77 11:05 RKO& CONTROLLER REGISTER DEFINITION 


SBASE=177440 


BR - 
we 


;CONTROL, AND, STATUS REGISTER 1 
Beer RED TRACK ere TOR REGISTER 
ook oc mea 2 
Ca alt <QEESET REGISTER 





sage 
RORZR IVS co 7 = VO 





ip 3 RaINTENSTEE FECIETER § 
ite ( L 
fe Hale 3 a A (ES LE 
1037 000032 RKECPT= sECE PS INFORMATI 
1093 .SBTTL CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0) 
1101 ; DRIVE COMMANDS 
1103 000001 SELDRV= 1 ;SELECT DRIVE (GET STATUS) 
1104 o00003 PACK= 3 *PACK ACKNOWLEDGE 
1105 000005 CLEAR= 5 iDRIVE CLEAR 
1106 000007 OAD= 7 
1107 000011 SRTSPL= 11 pit 
1108 000013 RECAL= 13 
1109 000015 OFFSET= 15 
1110 000017 SEEK= 17 
1111 000021 RODATA= 21 i SEEK DATA 
iis Biles nes ia 
1114 000, = R AND DATA 
1115 WRICHK= 31 
He " 
1118 ops : T : 
1119 = IT 
1120 BAlb= BITB ins ADORESS id 1g 
1121 BAl7= B1T9 ele T 
lige = BITi0 VE. TYPE (O=RKO6) 
11 = Til 
1124 = BiTle uae FORMAT (O=22 SECTOR, 1=20 SECTOR) 
ties = 113 R Peon DETECTED BY CONTROLLER 
1138 Ar: Bitte Peal, 
1168 CCLR= BITS “CONTROLLER CLEAR 
ist .SBTTL CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10) 
11 000007 DRVMSK= 7 ;MASK FOR DRIVE SELECTION CODE 
1133 000010 RLS= BIT3 *DESELECT OR RELEASE DRIVE IN BITS 0-2 
1134 000020 BAI= BIT "BUS ADDRESS INCREMENT INHIBIT 
1135 000040 SCLR= BITS SUBSYSTEM CLEAR CONTROLLER AND ALL DRIVES 





S 
f 
= 
— 
foo 


KESBESH é 


ee a oe 


Po 
Ww 


Ab bs heb en a Be he eb bm eee be met 8 hm fn bh ee fe pee Be Poot ps fh Pah fs bb B= PB he Ss Po Ro be he pee 


PSSBIRRESROBIS Volo LIN Soe GRC R OSMIUM se SaAE 


ee 
is 


KO0e 








TIC PART 3 -MACYI1 27(1006) 31-JAN-77 18:30 PAGE 22 SEQ 0022 
11:05 CONTROL AND STATUS REGISTER 2 BITS (RKCS2: 10) 
eB rr eo 
me ii Sete 
T1l NON-EXISTENT MEMORY 
Neds BITI2 :NON-EXISTENT ORIVE 
Wce= «BIT ERT EE CHECK tenon 
OTs BITIS {DATA LATE ERROR 
LSBTTL ERROR REGISTER BIT DEFINITION (RKER: 14) 
p00001 If BITO j ILLEGAL FUNCTION CODE 
Separ: BITS Ritanoey CPREON PARITY ERROR 
= BIT¥ FORMAT ERROR 
roa ERROR 
ee fle ES eon coon 
HVRC= BITB 
Bee Ht Oo oven 
eS BIT sHRITE GC ERROR 
OPl=  BITL3 {OPERATION (S (SEARCH) INCOMPLETE 
bees = OBITie sPRIVE UNO CHECK 
LSBTTL STATUS REGISTER BIT DEFINITION (RKDS: 12) 
oo0001 DRA= -BITO jDRIVE AVAILABLE, (CONTROLLER IS SET IF 
po0004 OFST= BIT? :DRIVE | Ve arPeer’ 
000010 AcLO= BITS :AC | 
Oooo BROte et Pat OFF TRACK 
1 : e IVOLUME VALID 
oo0200 OROY= BIT? {DRIVE READY 
bors BITe SDRIVE TYPE (O=RKO6) 
WRL= T1l : LOCK 
Pip: BIT13 nea IN PROGRESS 
peer. Bitte vata Nee 
LSBTTL MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22) 
ae ae VEN PARITY ON SERCON MESSAGE LINES 


AGNOSTIC 





ihoex PULSE 


:DI 
ma 
TPRINTENENCE ENED a0, ORT, 


: 

8 ; 

mee : 
MIND= BIT ; 


UNIBUS RK6 DRIVE 
28 


OZR6JD.P11 


Tes Bee Bao hos Poe fas we Pe fe Bs Be fe Be 
—SSEIRR LSS 


a GEeEase 


8 


8 


abi 


oO 
: 


So: 


cre 


- 
- 
= 
Pu 
~ 


es 


ease 


DIAGNOSTIC PART 3 
-JAN-77 11:05 


as Ee 
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MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22) 


Tl : T 
bess BETTS iPRECSHPENSATION DELAY © 
ECCHe 113 ice Hone ae BEING READ OR WRITTEN 
TE= Biris : GATE 

_SBTTL DEFINITION OF DRIVE STATUS BYTE O00 MESSAGE A (RKMR2:34) 
p-e Bire OU VALID’ 
bal BA Te omen 

® = : 

‘ T : 
D.OFF= BIT1O Be oe 

-WRL= ; 
Brine BITTE +P TMDL ON 
D.PIP= BITI3 POSITIONING IN PROGRESS 
D.05C= BITI4 ‘DRIVE STATUS 

.SBTTL DEFINITION OF DRIVE STATUS BYTE O01 MESSAGE A (RKMR2:34) 
p- Stns Bite eS pe 
D:BRHM= BITS : 
D.DO0OR= BIT7 :DOOR I D 
0.CART= BIT *CARTRAGE INTERLOCK 

. = ; 
Fe es BtTio t PORRARD 
D.REV= BITL * RE 
0:LOAD= BIT12 “HEADS LOADING 
O:RTz= BITI3 ‘RETURN TO ZERO 
D.UNLD= BIT14 : UNLOADING 

_SBTTL DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE B (RKMR3:36) 
0. 1DAE= etre . INVA, LD DISK ADDRESS ERROR: HEAD/CYL 
BF ts 117 :DRIVE FAULT 
D- Nie = BIT : CUTRBLE FUNCTION CODE 
Bete BtTiO wwe. 
D.WE= ITH “WRITE LOCK ERROR 
D.SPLSs IT12 : L 
0:DROT= BITI3 : DRIVE TRACK 
D.UNS= BIT14 :R/W UNSAFE 

_SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B (RKMR3:36) 
D.SECT= BITY :SECTOR ERROR 
D.WCUR= BITS ‘WRITE CURRENT AND NO WRITE GATE 
D.WGAT= BIT6 *WRITE GATE AND NO TRANSISTIONS 
D.HOFL= BIT7 ; HEAD FAULT 
Bea. BLE NbeY Bete? SECT 
0.TIB= BITIO :TRIBIT ERROR 
D.PLO= BIT11 PLO ERROR 


SEQ 0023 


UNIBUS RK6 DRIVE ee PART 3 
DZRbJD 1:05 


Pll 


28-JAN-77 


Bas ie | 


1 27(1006) 31-JAN-77 18:30 PAGE 24 SEQ 0024 
DEFINITION OF DRIVE STATUS eyté Ol MESSAGE B (RKMR3: 36) 


itiatr Ther" oN TREK 


Ciro: BIT 4 
-SBTTL COMMON MASKS AND OTHER BITS: MESSAGE A (RKMR2: 34) 


Tre Ey PLAT 
SER= ;DRIVE SERIAL’#, BYTE 11 
-SBTTL COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3: 36) 
-Id= 3 BYTE ID, ALL BYTE 


‘Bei = Ar 


_HEAD= zon9 HEAD DECODE 11 
“PAR= BITIS : PARITY, Opes Brae ALL BYTES 


BUS RK6 ORI 


Ca GG) GC) Ga) Ca) Cd Ca Gd 
Re ee eer 
WON FW O 


ee ed eee et ete ttt 
= 
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VE 31-JAN-77 18:30 PAGE 2S 
Pll 28-JAN-77 11:05 COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3: 36) 


sine: ;4ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.42,HALT™ 
SYSEQUENCE TO CATCH ILLEGAL TRAPS AND 
wet ;ALOCATION 0) CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
aun BB Ta ee oe 
oo0200 © sy 010060 en DEeTART «STUMP TO STARTING ADORESS OF PROGRAM 
000137 o100S0 iP PARSRT SINPUT ALL PARAMETERS & START TESTING 
pon24a Sonia? oss34e i” 0.007 SENTER OOT11 


-SBTTL ACT11 HOOKS 
YT 7 FL RRR mER TE RESTS 


‘HOOKS REQUIRE! QUIRED BY AC 
oo0244 "sSyree. ;SAVE PC 
000046 aie ;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
ooo0s2 120006 = 120000 ;;2)SET LOC.S2 TO 120000 
. =$SVPC 3; RESTORE PC 
001000 *=1000 
.SBTTL APT PARAMETER BLOCK 
: es tn ae ee ee 
eT toe LOCATIONS 2 ATIONS 24 AND 4H AS REQU AND 44 Ht PS S REQUIRED FOR AP 
8 « SEERRERER egg Lr nth 8 SRR ES Re 
Spates set Het gett Fait 0 POL MS NT TO START OF PROGRAM 
mms cera "44 t EOIN To APT APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHOR j;POINT TO APT HEADER 
001000 .=.$X  ;:RESET LOCATION 
$3 PETTTETITITE TT TT TTT TTT ttt TTT ttt ttt TTT ttt ttt ttt ttt tt ttt | 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 
201000 SAPTHD: 
001000 o00000 SHIBTS: .WORD 0 ;; TWO HIGH BITS OF 18 BIT MAILBOX ADOR 
001002 001210 SMBADR: :WORD S$MAIL ;;ADORESS OF APT Nal X (BITS 0-15) 
001004 STSTM: WORD 300.  ;;RUN TIM OF LONGES? TEST 
Boioie ObLtae SONTIH: “HORD £00, _TEADOITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
001012 900052 WORD SETEND-SMAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 
LIST MD 


B03 


UNIBUS KE DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) 31-JAN-77 18:30 PAGE 26 SEQ 0026 
DZR6JD.P11  28-JAN-77 11:05 APT PARAMETER BLOCK 

1383 ;USE LOOP xX TO OMIT SUBCLR 

ise WmCR) Loe, 

1327 MOV 8STACK, SP RESTORE STK PTR 

l . B A 

1 JSR PC, SUBCLR 

1331 ERROR 24 ;CERR AFTER SCLR 

1333 .ENDC 

1334 “ENOM LOOP 

i338 

1337 ‘THIS MACRO FILLS EXPECTED MSG AO, BO, Al, Bl, AZ, Be & B3 WITH STANDARD 

1338 ‘BITS SEE A=D.OSC AFTER ATTN OR O' AFTER DRIVE CLEAR OR ANY IMPLIED SEEKS 

1339 ‘NOTE: A CAN BE ANY BIT COMBINATION DESIRED. 

134 "MACRO F.EAB A 

1343 Hoy «ALD. .SPIN!D.DROY!D. VW! DRA» , ,E.AO ;EXPECTED MSG AD 

1345 MOV SB spoK!D. CARTON i ‘ae Bs se», E.Al ;EXPECTED Al 

1346 MOV #1,£.B1 :MSG ID FOR TED'MSG B1 

1343 Sb e=he B2 ae PORE CTED MSG B2 

1349 MOV 15°56 > MSG { FOR CTED MSG B3 

1350 .ENDM F.EAB 

13e2 

1353 ‘THIS MACRO ASSUMES DRIVE MSG AO, BO, Al, Bl WILL ALWAYS BE TESTED 

1354 "USE  A,C,D,£ FOR MSG AO, BO, Al, 1 ERROR ; 

1355 7USE  G=T:Ae TO RE Het Re 8 PUT INFO INTO ’CYLDIF’ 

1356 : H=T.Bo TO 8 PUT INFO INTO *CYLADD’ 

1357 : I=T.B3 TO READ MSG B3 & PUT INFO INTO SECTOR’ & ’HEADA’ 

1359 ‘USE  F=<ERROR DESCRIPTION» 

1361 "MACRO CHECK A,C,D,E,F,G,H,I 

1363 JSR PC, CHKMSG ; CHE Al, Bl 

1364 .WORD G!AIT :8 "Sect ted Here 

1365 ERROR “MSG AO 

1366 ERROR C *MSH BO 

1367 ERROR : MSG AL 

1368 MSG Bl 

1369 .ENDM CHECK 

1370 

1371 

1372 i R=CYL DIFF/OFFSET ERROR # 

1373 =CYL OR # 

1374 ics (ERROR DESCRIPTION) 

1376 "MACRO ClWD2 A,B,C, 7D, 7E 

1378 TST CYLDIF ;SEE IF MSG A2=0 


fe 


PRSGRCS Sa aaA TR SRaReRRER BEES 


1407 
1408 


=% 
~ 
~ 


% 
Ba 


D 
-J 
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AN-77 11:05 


CO3 
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APT PARAMETER BLOCK 20 We? 
BEQ D BR IF YES 
ERROR A *MSG A2 NOT CLEARED C 
D TST CYLADD : SEE IF MSG Be=0 
BEQ : “BR IF YES 
: ERROR :MSG Be NOT CLEARED C 
-ENOM  CWD2 
MACRO DRCLR 7A 
MOV 8CCLR, RKCS1(RS) 
MOV SUNIT;RKCS2(RS) ;ORIVES 
MOV aCLEAR RKCS1(RS) “DRIVE CLEAR CMD 
MOV Ti petri i SETUP TIMEOUT 
JSR PC, FROY : RDY 
ERROR 15] :NO RDY AFTER DRIVE CLEAR CMD 
ISR FC, TSTATN TEST FOR ATTN 
; ERROR 154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
ENDM  DRCLR 


-MACRO CALIB 7A 


MOV 8CCLR, RKCS1(RS) 
MOV SUNIT, RKCS2(RS) 
MOV #RECAL , RKCS1(RS) *RECAL CMD 
RESET CYL DIFF/OFFSET & CYL ADDR REG 
:IN RKMR3 3 
MOV T10, TEMP1 ‘SETUP T 
JSR PC, FRDY *FIND RDY 
ERROR 124 *RDY NOT SET AFTER RECAL CMD 
MOV 81,RKMRI(RS) § ;SELECT WORD 1 
JSR PC’ GSTAT 
BIT 80.RTZ, HAR2 
ERROR ely sR1z NOT SET DURING RECAL CMD 
A: MOV 10, TEMP2 :SETUP TIMEOUT 
JSR PC, FATT *FIND ATTN 
ERROR 55S "NO ATTN AFTER RECAL CMD 
DRCLR 
.ENOM CALIB 


t ASWRHEAD/ <CFMT! WRHEAD> 
: USE WRHOR <A>, X TO OMIT CHECKING AO, BO, Al, Bl 


"MACRO WRHDR A,C,?D 


MOV #<AD RKCS1 (RS) ;WRITE HEADER CMD 
MOV TSO000, TEMP1 § ;SETUP TIMEOUT 
JSR PC, FROY *FIND ROY 


UNTBUS a DRIVE DIAGNOSTIC PART 3 MACY11 Ag 31-JAN-77 18:30 PAGE 28 SEQ 0028 
OZR6JD.P11 77 11:05 APT PARAMETER BLOCK 


28-JAN- 
1435 ERROR 200 NO_ROY AFTER WRITE HEADER CMD 
1436 | JSR PC, GSTAT ite FRESH STATUS 
Re Pa T — 8CERR,HCS1 
14 01 ;CERR AFTER WRITE HEADER CMD 
1440 D: 
wal TFB CO 
144 CHECK 815,216,217,220, <AFTER WRITE HEADER CMD>,0,0,0 
1444 .ENOC 
1445 
1446 -ENOM — WRHOR 
1447 
1448 
1449 t Q=RDHEAD/ <CFMT! RDHEAD> 
1450 ;USE RDHOR <A>,X TO OMIT CHECKING AO, BO, Al, Bl 


fi 


ees 
“Hj 


* MACRO ROHDR A,C,70,7E 


#RHT 
T TEMP1 eT TineuT 

a pe Pat ‘Ave AFTER READ HEADER CMD 
D 


1459 IT #CERR, HCS1 
146 174 

14e3 i CEBRTING DATA fects TO GO TIMING TESTS 
1¥e3 IMP TIMING 

1 D MOV (RS), (RO)+ ;1°ST FROM SILO TO RHTAB 
tha MOY RRBBCRED'CRODs E2°RD 

1467 MOV RKDB(RS),(RO)+ :3°RD WORD 

1468 

1469 

1470 BIT 8OLT,RKCS2(RS) 

1471 BEQ 

1472 ISR C,GSTAT 

173 ; ERROR 173 ;DLT AFTER READ HEADER CMD 
1475 “IF B c 

14 NOP 

14 -ENDC 

1478 

1479 .ENOM RDHOR 

1480 

1481 

1482 .MACRO HDCHK3 7A 

1483 

1484 ROHDR  RDHEAD, X 

148 CHP RHTAB, TOCYL ;CHECK WORD O ONLY, CYL# 

tue RROR Sl WRONG CYL# ON HEADER 

1488 A: 

1489 

1490 .ENDM HOCHK3 


UNIBUS oor DRIVE DIAGNOSTIC PART 3 
DZR6JD.P11 1:05 


Gs bs bm be Bn ea Po BO at Bf ne Be Pe hs om Be ee pe 


SOU RRERE ee Mores 


1540 


28-JAN-77 1 
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31-JAN-77 18:30 PAGE 29 


T PARAMETER BLOCK 


: ASTOCYL/FRCYL , 


QUICK SEEK. 
"MACRO QKSEEK 


B=HEADS, C = 0 FOR 22 SECTOR, 1 FOR 20 SECTOR 
A,B,C 
a wy ; SETUP 

;10 a 


FE FAs iYRBCE 


ENTER WITH CYL#® IN RKDC 


7 
SSEEK RKCS1(RS) ;SEEK CMD 

TS0, TEMP! : SETUP TIMEOUT 

St sf IND PL AFTER SEEK CMD 
TSOOOO, TEMP1 § ;SETUP TIMEOUT 

pC, FATt2 FIND ATTN 

132 *NO ATTN AFTER SEEK CMD 
8CERR,HCS1 

210 ;CERR AFTER SEEK CMD 


A=WROATA/<CFMT!WRDATA 


s 18 Jee 10 an WRITE ON ANOTHER SECTOR 


BLANK WILL C 


HECK AO, BO, Al & Bl AT THE END OF WRITING 
THRU B1 


F RON BLANK WILL OMIT CHECKING AD 


-MACRO WDATA 


A,C,D,E, 9F, 2G, 7H, 71 
#<A> ,RKCS1(RS) 
T fEne 


et De 


11’ NO ROY AFTER WRITE DATA CMD 
PC .GSTAT GET FRESH STATUS 

“pte ;BR IF NO ERRORS 

#BSE, HER ;SEE IF BAD SECTOR FLAG 

G ‘BR IF NO 


SEQ 0029 
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1547 JSR PC, TRUERR ELSE SEE IF SECTOR LISTED IN BSE TABLE 

1548 BR H “RETURN HERE IF NO 

1 INC CTOR TURN F 

1881 cH SECTOR, #10. PS ai 10 SNeee 2TORS BAD 

1 RROR 40 a, TEST DETECTED 10 BAD SECTORS 

ES nae 

1555 F: MOV #CCLR,RKCS1(RS) ; TRY ANOTHER SECTOR 

1557 JMP C 

1 G: ERROR le sCERR WITH WRITE DATA CMD 

134 CHECK o. S3, 25, (AFTER WRITE OgTa > T.62,0 

abe fe neers ROAet Tic BALANC OF Feats 

1564 H: ERROR $E0P ;BAD SECTOR NOT LISTED IN TABLE 

1566 IF g 

1567 EAB 

1569 CHECK 52,23,53,25,<AFTER WRITE DATA CMD>,T.A2,T.B2,0 

1569 .ENDC 

1570 “ENDM WDATA 

1571 

1572 

1573 

1574 i ReRODATA/ CFNT!ROOATA> 

1575 ‘USE RDATA <A>,X TO OMIT CKWD12 

1576 : 

1577 

1578 .MACRO RDATA AA,C, 7D, 7E, °F, 2G, 2H 

1 MOV #<A> RKCSI(RS) ;READ DATA CMD 

1500 MOV TS0000,TEMP1 § :SETUP TIMEOUT 

1582 JSR PC, FRDY FIND RDY 

1583 ERROR A3 *NO_RDY AFTER READ DATA CMD 

1584 JSR C,GSTAT ‘GET FRESH STATUS 

1585 BIT ACER, HCS1 

ie grr  #BSE,HER ;SEE IF BAD SECTOR 

i 83 ERROR 0 sDETECTED BSE IN READ BUT NOT IN WRITE CMD. 

1591 D: TYPE MSG72 ;ABORTING BALANCE OF TESTS 

1582 IMP $e0P 

153 E: BIT SOCK, HER SEE IF DATA CHECK ERROR 

15% Pee OR 21 ;DATA CHECK ERROR AFTER READ CMD (ECC) 

1 aks, 

1599 F: ERROR 14 ;CERR AFTER READ DATA CMD. 

1601 E 


H: F.EAB O 
1602 CHECK 54,26,56,30,<AFTER READ DATA CMD>,T.A2,T.B2,0 
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Tee A cacteRe BLOCK 
BR D 
G: 
LIF 
.Epg. 
an CHECK 54,26,56,30,<AFTER READ DATA CMD),T.A2,T.B2,0 
-ENOM RDATA 
;ASHRTONK/ <CFHT!MRTCHK 
:C=16 


FOR STD ERROR MSG 
iOS tata oe te Far ERROR M36 Trae IN ’SBOUND’ ROUTINE 
X TO OMIT CK 


-MACRO WRCHK A,C,D,7E, °F 
ad 8<A> peel te) iSEIUP “ts CMD 


TS0000 IREQUT 

JSR PC, FRDY 
ERROR 15 ND Or RETER WRITE CHECK CMD 
JSR PC, GSTAT GET FRESH STATUS 
BIT 8CERR,HCS1 
BEQ F 
gir #WCE , HCS2 ;SEE IF WRITE CHECK ERROR 
Say Bx0acns), WO1 § ;ACTUAL WORD FOR PRINTOUT 
ERROR ¢ WCE AFTER WRITE CMD 

E: ERROR 2 ;CERR AFTER WRITE CHECK CMD 
CHECK 57,31,60,32,<AFTER WRITE CHECK CMD>,T.A2,7.82,0 
TYPE mSc72 SABORTING BALANCE OF TESTS 
IMP ENDRV 

F: 

IF B D 
F.EAB 


; 0 
CHECK 57,31,60,32,<AFTER WRITE CHECK CMD>,T.A2,T.B2,0 


:MACRO T TO TEST THAT WRITE CHECK OCCURRED AT SECTOR BOUNDRY 
: Abe 13e" 135 FOR FOR WRITE PROTEC rsh t TEST 
:C=J JUMP ADDR TO" REPEAT TEST 

‘MACRO SBOUND A,B,C, 7D, 7E, °F, 2G, 7H, 71, 2J, K 


JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 


SEQ 0031 
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AP R BLOCK 


T PARAMETE 
CTOR O 
1.808 TA mal TOOK E 


TST swe 
STMP2, #1023 
OLB DATA TO CHECK AGAINST 


Be SB ITO, STMP1 

BNE D TF uRITING 1"§ WHEN WLE OCCURRED 

HOV BOATAL,RKBA(RS) ;WRITING O’S:WLE SECTOR SHOULD HAVE ALL 1’S 

IMP c 
D MOV T (RS) ;WRITING 1’S:WLE SECTOR SHOULD HAVE ALL 0’S 
E BIS soa se Wee: 

MOV (RS) 

NOY Siis DACRE) PE OEE TED WORD FOR TRUERR TYPEOUT 

NOY Reet Ree tRE) ‘ 

WRCHK  WRTCHK,A,X 

NOP 

NOP 

CMP STMP2, #400 ;SEE IF WRL AT TRK 1, SECTOR O 

BNE F BR IF NO 

HOV #21.,RKDA(RS) ELSE SECTOR BEFORE WRL IS TRK 0, SEC 21 
F CMP STMP2, #1000 ;SEE IF WRL AT TRK 2,SECTOR 0 

BNE G BR IF NO 

HOV 825, RKDACRS) ELSE SECTOR BEFORE WRL IS TRK 1, SEC 21 

DEC ;GET SECTOR BEFORE WRL 

MOV 2, RKDA(RS) 

MOV (RS), STMP3 ;FOR ERROR PRINTOUT 

a a6IT0, STAI TING N WLE OCCURRED 

Rov SDATAO, RKBACRS) FATT ING cand dN ae Sai -] SHOULD HAVE ALL 0°S 
I: MOV #DATAL,RKBA(RS) ;WRITING 1°S:WLE SECTOR -1 SHOULD HAVE ALL 1°S 
5: BIS #BAI, RKCS2( 

MOV 8-256. , RKWC(RS) 

MOV ORKBACRS) We  ;EXPECTED WORD FOR TRUERR TYPEOUT 

MOV TOCYL, RKDC(RS) 

WRCHK  WRTCHK,B, x 
.ENDM  SBOUND 


PQUICK START SPINDLE 
"MACRO QKSRT 7A 


JSR PC, SUBCLR 
ERROR 24° ;CERR AFTER SCLR 


BIT #0. SPIN, HMRe ;SEE IF SPINDLE ALREADY ON 


SEQ 0032 


a 
[ omd 
NNNAIN 2 
bb ee he 
NOU ¢ 
2 
are) 


s 


f= p> ha bb bb bo bh oP bs = he he hs he he bp oe BS pe 


SASIET SORE SISTA 


anys 


J 
? 
N 


oad? 


1752 


vo 
~ 
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MACY LL 27( 1006) 
T PARAMETER BLOCK 

pe | “MSG29 
MOV TSPL,RKCS1(RS) 
ne Hye, eye 
ERROR 143 
MoV OG era 
error {8 

if CLR UNLD 

.ENDM © QKSRT 


IROUTINE TO ISSUE PACK COMMAND 


? 


Z:) 
Sunt T Ake (Re) ; 


;BR_IF_YES 
;PLEASE WAIT, HEADS BEING LOADED 


;START SPINOLE CMD 


;FIND CONTR ROY 
;CONTR RDY NOT SET AFTER CMD 


TAO RTIN AFTER CMO 


#PACK,RKCS1(RS) ;PACK CMD 


T10 1 j 
re 
40. VV, HMR2 


27 


PC, SUBCLR 
e4 


” “UNLOAD, RKCS1 (RS) 


110, TEMP 


17 
PC, TSTATN 
20 


; VOLUME VALID NOT SET AFTER PACK CMD 


;CERR AFTER SCLR 


;UNLOAD CMD 


NOR CONTR RDY 
NO RDY AFTER UNLD CMD 


me ATTN AFTER UNLOAD CMD 


SEQ 0033 
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-SBTTL COMMON TAGS 


5. SEE AE 2-0 0 4 4 2 9 9 9 a a a at 
pi HIS t CONTAINS VARIOUS COMMON STORAGE LOCATIONS 








Fe 

1 

l 

195 N THE 

1774 

1775 21100 

1776 001100 SCNTAG: START OF COMMON TAGS 

A ae coe PP garg pe ear 

17h cant Sot, HO 8 Stats SHBPE Lode ADURESS 

1782 001110 SLPERR: .WORD 0 : CONTA SCOPE RE TURN OR ERRORS 

Het Sas fine: wef carats tes ae 

1785 001115 SERMAX: ‘EVE 1 i cowray MAX. 

ire BBLS A sor ioe SSH weollee Fea aaree™™ 
ee ao ge ’ ’ 

re RHE BR PBR: (IB f SH rs. Om 

1 bot SBODAT: :WORD 0 ; CONTAINS "BAD’ pris 

fe Rite Bonne SAUTOB: ep f ss AUTOMATIC ad INDICATOR 

1734 001135 059 SINTAG: .BYTE 0 :: INTERRUPT MODE INDICATOR 

ie BBG fear SH ar, iD BSE UES WE UD ELEN 

1798 0011 177560 STKS: Hee i TTY TA 

1338 Sot ies 17ers erp: i 4 iy TATUS REG. ADDRESS 

18p3 BBlieg *77RRR t. TERRE B 

1803 001155 O02 SFILLS: .BYTE 2 a # OF FILLER CHARACTERS REQUIRED 

1 00115 O12 SFILLC: -BYTE 12 is ILL . AFTER A “LINE FEED” 

i poi x STPFLG: . 0 ae FLAG (BIT<O7>=0=YES) 

1 ties Stir t: “ORD = 

1608 0116s STMPe: .WORD 0 He ate 

iste LS Sires: eB a raat 

112 DOLL 000000 STINES: Q ITERAT JONS 

161i BBL208 T77ebs 000377 + rASCIZ Sg CaePOaeT® terrae Hoe 

1816 001205 015 Ha Reeth < «15> +E CARRIAGE PETURN 

1817 001206 000012 SLF: .ASCIZ <12> 

ists ; jae eeeaeseraenereeennediceateeneeennenannenteanaeniians 

1816 L L TABLE 

iss} ; |” panama a aaa atan nae RNR Nr SiteRip ie 

1823 001210 SMAIL: si RET MAILBOX . 

1824 001210 oo0000 SMSGTY: .WORD AMSGTY }:MESSAGE TYPE CODE 


SE@ 0035 


KO3 
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Big =P ' 


-Pll 


oun 


(Boe saes 


2 a gel ATR 
& 
a 


1170S=0e, 
,@=10 
PROCESSOR 


KROSS 
disvadvasvaasaa3 


0-004 04 84 O—4 D4 0404 04 


y 
3 
3 2 
> us 
- _ 
fa & >So 
4 as 
: ca 8 
7 @ = 
vey 


5, 
6008 

€ oo 

C 7 rae 


i 

= ae 
eye ae 
ee ie 
Bark ic 
gil 
a 


sFATAL ERROR NUMBER 
i Tes! NUMBER 





Spebboebe 


99 

IT 

IT 

IT 
eS 
hem. TY 


cei aie E | ERG 
ce erererraveaveqvensenennenses 


8 Bie —_— e.. 4 Ae errr 





a 





Frere i SENN TEATS AE BE RAAT Ro sss as aBNE 
pw pe pnp ee au I tt tt Sifisatiint chet 
SS88S88SS8888 as 8 88885 ee eR Ee ee 
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: HORB ABBUIS ::BEVIGE BESERLP TOR uOebels 
77440 


SETEND: 

ABASE= 1 ;DEFAULT BUSS ADDRESS 

Paver: £10 i T 1 CONTROLLER INTERRUPT VECTOR 
PKS 72540 pee STATUS REG 

PRE: 17564 Ook READ BUFFER 

LKS ieee STATUS REG 


IBCELOR INTERRUPT VECTOR. 


4 ;MEMORY PARITY VECTOR 
72100 ;MEMORY PARITY OPTION CSR START ADDR 


28 





ee : $3 ee ee a ae 
= ee oe iT) 
oO 00 CO ee ee Be 





1901 001354 o00000 :PC FOR MEMORY PARITY ERROR TRAP 
1903 001356 -1 Fi TART, NO T 

1908 001360 eeeey FTITLE ib Aen FOR PRINTING at OT PROGRAM TITLE 

1906 001362 on0000 DRVPTR ;CONTAINS THE POINTER TO THE DRIVE FLAG 

1907 :(DRIVO-DRIV?) OF THE DRIVE TO BE CHECKED NEXT. 
1909 000040 SPBAR= 40 SPACE BAR 

eee iat! i 

iat 000000 cCYL: 0 {CURRENT CL IN N SQUARE TEST 

Ge Bie Bae Sable: § carat, LS Se 

i3is eroFr: 6 en Rica Het RKMR3 

1317 CALADD: O ie CYL coon ueeb' | n FROTRa 

a -_ TT. 

1921 COUNT: iP TO COUNT TO 1 SEC 

1362 al . 10k 10 30 NUMBER fore COUNT OFF FRACTIONAL SECOND 
3c TIMUe: 0 Pepe Po tho IEA TE TIME IS UP 

18e% W000C PSEC: ; Pate SECTOR 

1 23 ESEC: 0 ‘EXPECTED SECTOR 

1368 001422 00000 SECTOR: 0 SECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3 

1650 001424 900001 Tl: 1 ; TIMEOUT CONSTANTS 

1931 ois le 110: 10 

1a35 0014) 500: 20 

1 0014 144 T100: 100 

1935 0014 11610 T5000: 65000 

1936 001440 141520 750000: 50000 


SSE A SUS? Eg FIT I mee 


;CYLINDER NUMBERS USED IN 
;CURRENT CROSSOVER TEST 


63. 
127. 
319. 
i 383. 
ig at Th : USED IN TIMING TESTS 
1 001 TING: 
! 001 TIM4: 0 
1? tein: idldab ll 
1 4 SUM: : FOR ae ie TESTS 
#6 01 pone iE: DEF | Foe TINING TESTE 
95g Wl: OO ;ACTUAL HEADER/DATA WORD 
cost] Wwe: 0 ‘EXPECTED DATA WORD 
a OFFERR: 0 SET WHEN WRITE CHECK ERROR ON OFFSET 
A NEDA: 4 TEA H. F 
oe thie 8 (aaa BBa Elana PRA Abtrine 
8 001 Ferien. x SOMIFTED FOR FORMAT FOR FORMATTER ROUTINE 
WOCNT: 0 + ROAD SoU 
DATAO: O ALL 0°S 
DATAQI: S2S25 30101 PATT 
DaTAL: 127772 tALL 1°S 
BpaTe: bie27 





i) 
0 
om | Cee 
9 itt TO 4 TO BYPASS CKCERR IN *GSTATI’ 
102 HOTAB: .BLKH 66. CALCULATED HEADER WORD TABLE 
00108 BRT Tae: “BLAH BB: Re ane Be soRTeD START INC FORM 
Betees: Eck Bee: i Bathe UNE Bae TED, 


;FILLED AFTER READ DATA CMD 


Fa 
E 
: 


Re 
Ps 


fe eB fr th to 0 Be dt fn ht be ee Be Be hh ee ee Pe Pe he ee 


Bos BRR RRS Bos Ja Noa succes 


3.3 / 
004370 
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cE ¢ migseaetaseeete EREEE ¢ Seeadded y 
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Sas 


5238 
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aug PSE REESE Lae USSR RPRETRERRRROGERR fs 
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| Bg 
z= 
BS 


bao: 0 
E.B0: 0 
E. "Al: 
Bl: 0 
E-A2: 0 
EAS; 
E.63: 0 
i THE FOLLOWING ARE IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED. 


;TEST MSG A2 IF SET 


FALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE. 


‘Ls - N 
a Aa ha ee 
i : sELAS - - St WEN BY R TAPE 
DRIVS: 0 : CONTAINS THE NUMBER OF DRIVES. PRESENT 
j THE Eb AGs BELOW ARE SET TO. 1 To INDICATE THAT A PARTICULAR DRIVE 
A SENT 
DRIVO: } iFLAG LAG SET TO TO 1 WHEN DRIVE O PRESENT 
DRIVe: 0 FOR DR 3 
DRIV3: O :FOR 3 
DRIVY: 0 FOR DRIVE 4 
BRive: 0 FOR DRIVE & 
BRIVe: 0 FOR DRIVE 7 
LCLKF: 0 sL-CLOCK FLAG PRESENT FLAG 
PCLKF: 0 *P=CLOCK FLAG PRESENT FLAG 
DOTIM: 0 SET IF EITHER CLOCK PRESENT FOR TIMING TESTS. 
SIZFLG: 0 ‘SET IF DEFAULT DO SIZING IN TEST 1 


SEG 0039 


2 
5 
Z 


vo 
i 
— 


gaaueeaas F 


rurorurururorururoruroru 
ee ee ee ee ee ed 


Bae Vonson-OSSNRR EONS 


rerorerorororofporororororonororupoporurererurerrurururrurururorurury 
ee ae ee Sk ee de a ge ed od ed pee ee eee 
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-SBTTL ERROR POINTER TABLE 
RUS FESS RESELL DPT 


HeLgee fon es THiS ger {ol ves ee WHI Hiren ae Te ome IS PERTINENT. 


ENOTES; ITEM IN THE TABLE rope 4 POINTERS EXPLAINED AS FOLLOMS: 
;# EM ;;POINTS TO THE ERROR MESSAGE 
;# DH ;3POINTS TO THE DATA HEADER 
tf OT :{POINTS TO THE DATA 
te :ZPOINTS TO THE DATA FORMAT 
SERRTB: 
;ERROR 1 
044315 EN2 ;0R ® IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2 


me i iis a 


m 
a 


;DETECTED MDS 


hia 


;ERROR 3 


z 


;DETECTED UFE 


Soe 


;ERROR 4 


3 


;DETECTED DRA & NED RESET (WRONG PORT SELECTED?) 


SZ 
re 


m 
F 


;DR PRESENT BUT NOT SPECIFIED BY OPERATOR 


hited 


EMS ;DR NOT PRESENT BUT SPECIFIED BY OPERATOR 


7 
EM10 ;ABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER 


WS He Hoes he oo Ae 


' 
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£ 


7 
;ERROR 10 
;DRA & NED BOTH SET 


9 bbe Gee 


- 


;NO_RDY 
;AFTER WRITE DATA CMD 


;CERR SET 


rurururorurorforururururururururu 


Poo Pe pe be fe Be Re fee hs Ge fs me fae 


;NO_RDY 
;AFTER READ DATA CMD 


;CERR SET 


~SSeLERIGRKSSBVRALONHL BSS 


IACTER WRITE CHECK CMD 


iPTER GRTTE GREK hd 


i CON NOT_RDY 
;AFTER UNLD CMD 


sNO ATTN 


Bae b—8 Ps fee Pens Des ao bee fs Pat Ban Bee fo pe 


;ERR 21 
;DATA CHECK ERROR 
;AFTER READ DATA CMD 


;ERR 22 


: 
e 
: 
e 
5 
i 
st 
e 
: 
: 
e 


BESKRLSCVHLSZEIRRPSR=ABIAIIAAZIA 


et be Bat Bae bes bee Pes Bae ba bt eo bt bo Bs feo et ee 


;CERR SET 
;AFTER WRITE CHECK CMD 


a 


Fae 





a 
% 


2 
Ba 


vo 
eo 
fa 


una F 


PSUR 
WONMUTIL Whe 
See Ee 
Ctvuo 


\ 
8 


f 


pono face Poke Bie 


43 


¢ 


cE 


NORM Cnee aoe e eaSaS MADARA SINS 
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Pet D8 pet et 
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;ERR 23 
1 EM18 :MSG BO ERROR 
1733 DH27 “AFTER WRITE DATA CMD 
142 DT13 
46 OF21 
04S434 jee ee 1 CERR SET 
belgie 1 ETE SCLR 
4 TI 
os4S12 OF 10 
;ERR 2S - ; 
045413 EM20 :MSG B1 ERROR 
051733 DH27 
054142 OT13 
OS4646 OF21 
045351 ; EMIS 
051703 DH26 ;AFTER READ DATA CMD 
054142 DT13 
46 OF21 
;ERROR 27 
045547 ‘ EM24 -VOL VALID NOT SET 
051470 DH19 ‘AFTER PACK CMD 
053764 DTI 
054512 wea DF10 
045413 : EM20 ;MSG B1 ERROR 
051703 DH26 :AFTER READ DATA CMD. 
142 OT13 
OF21 
1 Pe oe RROR 
pastas teed tAPTER MAI TE CHECK CMD 
Bedeug Bro 
;ERR 32 
Quss13 EM20 ;MSG B1 ERROR 
4 T 
Bass rf 
046374 ERR 33 wy |VV_NOT CLEARED 
DH ‘AFTER PACK RE-INSERTED 
054512 OF 10 
sERR 34 
Geos EM76 ;NO DRIVES FOUND IN DEVICE MAP 
46 OHI 
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Ooels2 
006124 


Rionees 6 


oR 


Bee EEE REESE SERRE 
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OS4646 


051443 
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Re Sys 
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;ERR 3S 
EM17 
DHS 


DT13 
OF 21 


;ERR 36 
EM19 


sERR 41 


;ERR 42 
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;MSG_AO ERROR 
sAFTER AC SW OFF 


;MSG Al ERROR 


;DETECTED 10 BAD SECTORS 
AFTER WRITE DATA CMD 


;WRONG ATTN 
;AFTER UNLOAD CMD 


;ORDY NOT CLEARED 


;DSC NOT SET 


;DOOR NOT CLEARED 
AFTER DRIVE UNLOADED & DOOR OPENED 


;MSG AD ERROR 


;MSG BO ERROR 


;BSE ERROR IN WRITE CMD NOT ON BSE TABLE 
AFTER WRITE DATA CMD 


SEQ 0043 
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mt 
~ 
~ 
E3 
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: 


fm fe ee foe Pee 


Coeseseses 


OODOnoru 


by 
A 


SOEUR AER Re RUB AMRUDRMOSs Saat aee Soe URS RC ROO MOD IONS 


a4 
att 


GEE eck Woon Sen Gece Bota GORE eee SERS FREE 


Ha 
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os4S1e2 


20 Saad Sand fast 


5 


_ 
ai 
fu 


Gime fad fa? 


051733 
053764 
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DF 10 
;ERR SO 
ty ;DETECTED BSE IN READ BUT NOT IN WRITE CMD. 
OT1 
OF 1 
;ERR S1 
EMS3 ;WRONG CYL® IN HEADER WORD 
DH2S ;AFTER SEEK CMD 
DT9 
DF20 
EM17 ;MSG AD ERROR 
DH27 ;AFTER WRITE DATA CMD 
DT13 
OF 21 
: EM19 ;MSG Al ERROR 
DHe7 
DT13 
OF 21 
;ERR S4¥ 
EM17 ;MSG AD ERROR 
DH26 ;AFTER READ DATA CMD 
OT13 
DF21 
;ERROR SS 
EM13 ;NO_ATTN 
DH17 ;AFTER RECAL CMD 
DT1 
DF 10 
;ERR S6 
EM19 ;MSG Al ERROR 
DH26 
DT13 
DF21 
;ERR $7 
EM17 ;MSG AO ERROR 
DH32 sAFTER WRITE CHECK CMD 
OT13 
OF21 
;ERR 60 
EM19 ;MSG Al ERROR 
Tl 
OF21 
;ERR 61 
ty ;NO DRIVES PRESENT 
Tl 


;FOUND 10 BAD CYL 
;AFTER WRITE DATA CMD 






HO4 


SEQ O04S 


Q Zz 3 
= i 
a va “ 
s 8 2 
: 5 38 
: : ae : 
“ae Tea ted be be - s 8 
Wie Ge Bee Boe he gs 8 s &§ 
oe me ee bet eo Bi Boe Bon ee w% 8 
2 — 3 ee 4 9 3 a ys! = = 
8 
S 
é 
2 
BG 2 eins Sen §s-8 Sat Sous Sats gots HTS SzQa SSR 
cs & 5Aac4 Bass Bass & HS0S GSods GS64 FSSG4 SSS4 coco BSS mood 
ee Si Soe Bag ei Boe 8 Bo i Bee, Bee 
TAEY 4 Bod Pe tack Ged a ed tog a 


é Hace Goob Saal Hak Gass Eee bask fans Geee fast feae 


ez @ Ha8e B8G0 GBu BASS OSG S008 ORB AERA Goad HBd Base 
5 EIA ASR RAR ARERR NARS REDE RMR RE azezeaeenenete 
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PESRER PARES MOSS GM uu niant ses re eees crit ritityt ‘ 
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28-JAN-77 11:05 ERROR POINTER TABLE 
;ERR 76 
EM19 ;MSG Al ERROR 
ue Bret 
;ERR 77 
006540 ousH13 EM20 ;MSG B1 ERROR 
Speeus pedeas Bria 
006546 054646 , OF21 
O0Es50 045517 : EM23 SPIN SET 
051247 DHI3 ‘AFTER LOADING HEADS WITH CART. OUT 
006554 053764 OT1 
006556 054512 DF 10 
;ERR a 
reese] Vise reeerd cers 0 
Spree Eee rere veers 0 
006570 000000 goatee” 
Speer erred cee 5 
006576 000000 0 
;ERR 103, 
006602 vereed cee 0 
006604 000000 0 
006606 000000 0 
;ERR 104 
006610 00000 0 
le DOOOOD 0 
Beri 
16 0 
7043 me 105 s2 UNS NOT SET 
eg Hed ‘AFTER MOS FOUND 
054512 OF 10 
sERR 108 Ao WV. SET 
teiass DHIS ‘WITHOUT PACK CMD 
054512 DF 10 
ERR 107 bb 
bres i DPTER EVEN PARITY ISSUED 
054512 OF 10 
046632 sERR 110 up NOT CLEARE 
beets DHE ‘DETER WRI CeeK SWITCH DISABLED 
054512 DF10 
ERR 111 


04 
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2483 046021 M30 ;ATTN NOT CLEARED 
ae OB 7es nt6 ‘AFTER UNIT SELECT PLUG REMOVED 
l2 DOF 10 
2487 ;ERR 112 
BR men oes en or 
l 16 
ae Ha 
sERR 113 
o4se0e EM13 ;ATTN NOT SET 
sp a) DHS9 : AF TER EVEN PARITY ISSUED 
aus oT1 
e496 l2 DF10 
ped ;ERROR 114 
047315 ;PARITY NOT SET 
e499 053050 3 
2500 053764 Tl 
2501 054512 OF 10 
este ;ERR 115 
2503 046672 EMS ;WRL_NOT SET 
2504 052716 3 sAFTER WRITE LOCK SW ENABLED 
2505 053764 OT1 
2506 os4S12 DOF 10 
our ;ERROR 116 
045144 EM1l2 ;CONT NOT RDY 
25093 1470 DH19 : AFTER PACK CMD 
seid pH 
ll l2 10 
2512 ;ERROR 117 
2513 O45 144 EMl2 ;CONT NOT RDY 
14 051513 OHe0 AFTER SEL DR CMD 
1s aeaees oT1 
18 l2 DF 10 
251 ;ERROR 120 
2518 04S 144 EMle2 
25193 OS1S46 Ror ;AFTER SUBSYS CLEAR 
;ERR lel 
2523 046726 EMSO ;WLE NOT SET 
sos? fec7ee po sAFTER WRITING WITH WRITE LOCK SET 
Aa 054512 OF 10 
;EPR 122 
2528 045715 EM27 ;NED NOT SET 
pelgee DH23 : AF TER WRONG PORT SELECTED 
7G 2 64 DTI 
2531 054512 OF 10 
;ERR 123 
att ‘PER WAIT IN 
;AFTER WRITING WITH WRITE LOCK ENABLED 
2s 054142 OT13 
ox OS4646 onore wae 
2538 045144 ‘ EM12 


KO4 
31-JAN-77 18:30 PAGE 48 


SEQ 0048 


CT PORT SELECTED 


ARED 


;WRITE LOCK NOT SET SECTOR BOUNDRY 
;AFTER WRITE LOCK ENABLED WHILE WRITING 
;AFTER WRITE LOCK ENABLED FROM AC OFF 


“AFTER WITING WITH WRL ENABLED 
‘AFTER BOTH PORTS DESELECTED 
‘AFTER WRITING WITH WRL ENABLED 


";AFTER RECAL CMD 


;MSG BO ERROR 


;MSG Al ERROR 
;MSG Bl ERROR 
;AFTER SEEK CMD 
;NO ATTN 

;NED NOT SET 


NOT 
ER 
;NO_RDY 


inet 


Be S5s Sues soon BESS Beckapscannecs p bess Bboe Eos ios ES 
cE FICC Ha 


;ERR on 
;ERR 137 


of a EGS isd Wick Han ake Faas Go RED all ae 
zz B66 BGes Goss Sess Ges ESee SEE Bass Goss GaB8 BSED 5 
ee 






See eEee 


RRRRRRRK 


NOUS 


RESP SES RSLOAtA AS TAA ASANTE 


SS Ren 








a 


3 
ba 
fu 


ro 
fw 


ei ie Oe ER. 


a 





MACY11 er ee 18:30 PAGE 49 SEQ 0049 


ERROR POIN 


;SPINOLE ON NOT SET 
;AFTER DRIVE MANUALLY LOADED 


;CONT NOT READY 
‘AFTER ST SPIN. CMD 


;NO ATTN 


;HEADS NOT HOME 
;AFTER MANUAL UNLOAD 


:CERR NOT SET 
AE AER TIMEOUT TO POWER DOWN 


;AC LOW NOT SET 


;NED NOT SET 


;NO ROY 
;AFTER CLEAR CMD 


iF LO NOT CLEARED 
AFTER AC POWERED UP 


3 
: 


N“ 
~ 


Rae 


RRRRR RE 
Jeti 


5S SSLES LAER E NERS 
& . 


DRIVE DIAGNOSTIC PART 3 
28-JAN-77 11:05 
os4si2 


wv 
r= 
~ 


007276 

007300 
l2 

007310 

007312 

bovaie 

16 





04 


MACYL1 27(1006) 31-JAN-77 18:30 PAGE SO 
POINTER TABLE 
OF 10 
;ERR 153 
EMYY ;VV NOT CLEARED 
Tl 
ERROR 1 ™ 
r ENSS ATTN NOT CLEARED 
pri 
10 
stain W SET AFTER OADED 
Hl tT TROUT + PRCK en 
OF 10 
;ERR 156 
as AFTER SEEK WITH Vv=0 
DF10 
;ERR 157 
7 CYL ADOR CHANGED FROM 0 
T14 
OF 22 
;ERR 160 
EM17 ;MSG AO ERROR 
Tl 
ERR Fes 
: pig ;MSG BO ERROR 
0T13 
a Pei 
: 1 ;MSG AL ERROR 
Th 
OF21 
;ERR 163 
;MSG B1 ERROR 
T1 
21 
;ERR 164 
;NXF_NOT SET 
Ht AFTER WRITE DATA WITH VV=0 
ERR us” 
. : T_READ INFO 
Bis iA eecTORS ons, 4, 6, 8 
OF 17 


S 
5 
% 
~ 


= 
BA 
? 
z 


iT 
£ o 


PODCNURERANOnER EP EE EREPOARADRRANON A SnD Sa RRS 


serene f 


id Hud ad dad Hd oe 


= 
o 


53 
=r 


16 


a 


os Ge ie 


da Fin eee 0 





BEes Saar 


ee 
= 


2 
gE 


eat 
ute 


2 
2 


2 
wi = 
ESS 


ae Be 


eT eee PAGE S1 


sERR 166 


5 Sree 


b= 54 
be 
N 


= 


nme 
aS 


i | 
Par 


4 
a 
oO 


; ON 


SEC 10, 12....20 


;NO RDY 
;AFTER READ HEADER CMD 


;NXF DID NOT SET FAULT 
SAFTER SEEK WITH VV=0 


;DLT SET 


;CERR SET 


;UNLD NOT SET 
;AFTER MOS FOUND 


CANNOT FIND MOS 
SAFTER SEARCHING ALL DRIVES 


RETER UNIT CEL PLUG REMOVED 


;NO 
;AFT 


RDY 
ER WRITE HEADER CMD 


SEQ 00S1 


# 


ELESES SESS ES SPSS 5°55 SEREESREERSERE EEE 


bg 
¢ J 


_ 
a 


A 


eR ES 
Te eer 
OnomuU st UU © 


RK& DRI AGNOSTIC PART 3 MACY11 27° ) 31-JAN-77 18:30 PAGE Se 
$- oe 11:05 1006} apie — 





Pll ERROR POIN 
O4S434 EM21 ;CERR SET 
052341 DH39 
peices rH 
15 
; ERROR 
047223 ENS sUNEXP MEMORY PARITY ERROR 
ee iy TEST #,PRAP PC 
72 
1 tt RROR 
10 bie iAP TER Ae SWITCHED OFF 
007606 OS54646 as OF 21 
007610 047267 : ENS? ;CERR NOT SET 
007612 053514 DHb7 AFTER TIMEOUT TO ENABLE WRL 
007614 053764 OT1 
007616 O54S12 DF 10 
ERR 205 
007620 046726 ENSO ;WRL NOT SET 
re Wass pesoty ae sae 
007626 054512 OF 10 
007630 047435 “ “Pee sWCE AT CYL 411, TRK 2, SEC 21 
rite haat at 
007636 054476 Be? 
oo7e40 047267 ‘eamege EMS7 ;CERR NOT SET 
er DHSO AFTER WRITING WITH WRL ENABLED 
007644 4 OT1 
007646 054512 OF 10 
NOTES) QSHY sERROR eel ;CERR SET 
00765 1650 DHS ; 
007654 053764 OT1 
007656 054512 OF 10 
007660 047345 sERR 211 cg “CTO SET 
007662 047744 EN70 ‘WHILE WAITING FOR OR REC’D CONTR RDY MSG A & B BAD 
OO7bEM 053764 OTL 
- ERR a2 1° 
007670 047562 ; EM67 ;NED SET 
007672 047744 EM70 
74 053764 OT1 
7% 054532 - 33 2 
007700 O44S34 , ;MDS SET 
007702 047744 EM70 
007708 053764 OT1 
054532 OF 12 
;ERR 214 
007710 050303 EM74 ;RTZ NOT SET 


COS 


SEQ 0053 


2 
Me 2 
2 2 ve 
3 ry € 
a Sy 6 
a ve [ere a 
Rtn Fon oy s ft 
uy¢ @ €£ © “ee 
RAG wie eee -— ¢ 
Lae] 
o 
iS 
& 
i: 
Bs 2.2 SETS Sets & S62 up 2 = 
aS 5% Bass 5 BB EBEE BEES gocccifooccfjoccs ofjocootoccokEsaane 
- a xu F & x 
ETE Te Tia babe ed 


PART 3 


Bas Hic Bick else Sick BREE EEeE EEE: sai | 


G55 EGGS GSES GSE GEES GSES SSS Eeee eees ERE Eee & 
S i GTA 





RK& DRIVE DIAGNOSTIC 
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: a 
0077 








SEQ O0S4 


DOS 
31-JAN-77 18:30 PAGE S¥ 
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28-JAN-77 11:05 


-Pll 


z 
% 


vo 
4 
pa 
BA 


Seas Meee eeeeee POMC Ceeyereer Tei peepee 


DIAGNOSTIC PART 3 MACY11 27(1006) 31-JAN-77 18:30 PAGE SS SEQ 00SS 
JAN-77 11:05 ERROR POINTER TABLE 


-SBTTL PROGRAM SETUP 


10050 012737 000001 001356 PARSRT: MOV #1 , PARA iSET FLAG FOR 220 START 
10056 BR SRT :START PROGRAM 

10060 005037 001356 START: CLR PARAM ;C.EAR FOR 200 

1 PRGSRT: RESET i CLEAR & INIT 

i i 001100 HOV STACK SP SETUP S 

BOOT ea yates MOV He tcSP) Pet CORED TO BE 

010102 000002 RTI ‘ENABLE ALL INTERRUPTS 

010104 004737 033262 1S: JSR PC, STKINT ;SETUP KB VECTOR ADDR, PRIORITY 4 


8 TURN ON KB INTERRUPT 


tees SERVICED. itt 
i OeK AN TROLLER RIE CHANGE CPU PRIORITY TO LEVEL 6 (IN ’STS’) 
I S WILL CPU_PRIORITY TO wits S_IN ’SETINT’) 
;KEYBOARD INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 4 (SEE ABOVE) 
;ALL *SYSMAC’ TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW) 


-SYSMAC ’SETUP’ 
.SBTTL INITIALIZE THE COMMON TAS 


;;CLEAR THE COMMON TAGS (SCNTAG) AREA 
10110 012706 001100 MOV 8SCMTAG, Rb ;;FIRST LOCATION TO a3 CLEARED 
10114 pier CLR (R6)+ CLEAR MEMORY LOCATION 
1ote8 Bea aoe gr dase :LO0P BACK IF 
10124 Aye : is ack SP SETUP THE Fac POINTER 
10130 NOV aESoOPE StrorveC ss] ; s10T, CTOR FOR SCOPE ROUTINE 
101 MOV astOTVEce file 
iis HOV gas a cet “VECTOR FOR ERROR ROUTINE 
: 166 MOV 8S ; r vec’ j ETRAP_ VECTOR FOR TRAP CALLS - 
1017s nov Hedin, 9 Epo, FAILURE VECTOR 
i 1 NOV soot T seorey HH 
ite CLR Imes’ PtINI IZE NFER OF FTERAT TONS _ 
i nove oat i 
Ee A Boron 
OR A ’ Sutrox neciSTEn. IF F OR IT IS 
TO A "-1", SETUP FOR A SOFTWARE reCH REGISTER 
est OY RetIS SeERRVEC. SECT “UP ERROR VECTOR 
10262 MOV 8OSWR, SWR ::SETUP FOR A HARDWARE SWICH REGISTER 





05 





UNIBUS RK& DRIVE DIAGNOSTIC PART 3 MACYL1 27(1006) 31-JAN-77 18:30 PAGE S& SEQ 00S 
DZR6JD.P11  28-JAN-77 11:05 INITIALIZE THE COMMON TAGS 

2933 010270 012737 177570 001142 MOV 8ODISP, DISPLAY 35ND A HARDWARE DISPLAY REGISTER 

eat 010276 77777 |= 170634 CMP 8-1, aSWR HS TO sen IF 
1 BNE 665 we ate TIMEOUT UT_ TRAP OCCURRED 
1 BR 6 

Be beth 64S: Hoy bees (SP) fe oN TE Acai le 

P40 010316 65S: HOY 8SWREG SUR gyi #POINT TO SOFTWARE SWR 

ete ssc 66S: MOV tor5t RG DIS ; ;RESTORE ERROR VECTOR 

en 1 CLR wets er pass COUNT 

2946 Cie Bra” —_ i TSE NOR-APT Cur TcH : 

Eeal4 O103¢ fi MOV BSeMREG, SUR iN Suse. APT SuITCR REGISTER 

Seed oi MEMPAR: MOV ais ERRVEC ; TIMEOUT VECTOR 

eal 1 MOV ? ERRVEC+2 

2953 010374 MOV 8MEMBAS, R1 ;ADOR OF MEM CSR 

2954 010400 3S CLR (R1) i SEE E IF CAN CAN REFERENCE 

2355 010402 MOV #1, (RL) NABLE BIT IF YES 

gab O10NOE HOV are Tere FENVEC +P TEnORY CHK VECTOR IF DONT TIMEOUT 

eae 010422 BR 25 

2960 O10424 1S: CMP (SP)+, (SP)+ ;ADI STACK 

2%1 010426 2s: ADD #2,R1 TRY NEXT CSR 

S35 LONSE Ge Geren | sl IRD? 

2964 010440 MOV C+2, ERRVEC’ RESTORE TRAP CATCHER 

B65 O10446 CLR ERRVEC+2 # 

E34 g10N52 ISR PC, CLAFLG CLEAR DDUMP THRU SIZFLG 

299 010462 CLR SUNIT 

pa at 

e972 ‘FIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE 

Be ue . 
pS porpiy Coomte roe i :BR IF AUTO 

or8 BONA ri 024104 JSR be, TITLE *MANUAL, TYPE PROG ID 

010500 nite 000041 000013 CMPB 41) #13 ;13=LOADED BY XXDP 

stead 005516 ANE Bounp ;SET RKO& DUMP MODE FLAG 

See 010514 i013 1 ite TYPE ae ‘REPLACE DRO PACK W/SCRATCH & DO<CR> 
ioess jE 10600 1$: IMP ST 

2384 a 005237 005524 23: INC PPTP ;SET ACT/APT/PTP DUMP MODE FLAG 

2986 , 

2987 CHECK IF ALL PARAMETERS DEFAULTED. IF NOT, BEGIN INPUT DIALOGUE 

2988 ‘WITH OPERATOR. THE REPLY TO "DRIVES TO BE’ TESTED’ SHOULD 


S 
~R 
—-o7 

Fa 

~ 


be 
WMOnNCU CWO 


jetafafafajofofotet<) 


282 Soe U RTE BUONO TSRES 


brennan F 


olelolelelelol=l=)=) 
Bae fet Pan Bee fie fie Be bo pee 


IaERERaeoD 


sug 


ae 


Bi 
S 


een GH GIs 


| i Berra oh i a: 


-_ 
— 


ees 


BA 
so 
g 
z 
Ww 


000013 


INITIAL TSE. 


erty = SEPERAT 


DRIVE 
Ste: TST 
fe o 
STy 
1S: TYPE MSG3 
JSR Pc GORVS 
TYPE mSG4 
ISR Pc GBA 
TYPE MSGS 
JSR Pc GINT 
BR sTé 


: DEF 
;0N Ti 
ST3: CMPB 41,813 
BNE 1§ 
INC DOPCH 
JSR PC, TITLE 
TYPE MSG? 
BR éTy 
1S: INC ACTII1 
ST4: MOV #177440, SBASE 
mm BRS 
Es cant 
STs: CLR 
eth 
CLR 
MOV 8ORIVO, DRVPTR 
CLR ver 
CLR I 
MOV 81S, ERRVEC 
TST é 
Mier LCVEC, RO 
MOV ERRVEC 
ie Fea 
MOV PEvEC, RO 
BR 3$ 
1S: CMP (SP)+. (SP)+ 
MOV 84S ERRVEC 
TST apKs 
INC PCLKF 


cotton tans 18:30 PAGE 57 
TAGS 


6 TESTED: 


SEQ 0057 
& TERMINATED BY <CR> 
1,2,4<CR> 


START 
aR, DEFAULT & SIZE THE BUSS 
"BE TESTED 


AT, m9 CF LOADED BY XXDP OR OTHER. SET FLAGS & NO INPUT DIALOGUE. 
AULT ALL PARAMETERS. TEST ONLY THOSE 


DRIVES THAT ARE READY 


;13=LOADED BY XXDP 
;SET RKD& CHAIN MODE FLAG 
;DRO NOT TSTD 

;SET ACT AUTO FLAG. 


;DEFAULT VALUE 
;DEFAULT VALUE 


;00 “SIZE THE BUSS” TEST 
ites FLAGS 

‘FBR vil 10° PRoaaEN FA Ts 
; SETUP 


:NO. 
SRORRENT DR TEST 
s SETUP Treo ERROR VECTOR 


Baer es 

os IF_P-CLOCK THERE 

i EETOR ApBe FLAG 

;L-CLOCK NOT THERE, CLEAR STACK 


i SEE IF P-CLOCK THERE 
;PRESENT, SET FLAG 


Be a 
HOS 


RK& DRIVE DIAGNOSTIC PART 3 MACY11 {aoe ¥ 31-JAN-77 18:30 PAGE SS SEQ 0058 
Pll 28-JAN-77 11:05 INITIALIZE COMMON TAGS 
11 MOV PCVEC ,RO ; VECTOR 
HIP Bee, Bee TE mow NED TR OEE OO 
Hole o1s7i0 060300 HOV PRE, CAO) 
011022 000407 BR TST1 ;;GO TO NEXT TEST 
11 2s: CMP (SP)+, (SP)+ ;P-CLOCK NOT THERE, CLEAR STACK 
SEES SB y 
011030 022626 48: CMP (SP)+, (SP)+ ;NEITHER CLOCK THERE, CLEAR STACK 
Bi iOS 005037 SS4 CLR TIM ; TIMING TER'S CANNOT BE DONE. 
11036 104401 7156 TYPE »MSG13 ;ALL TIMING TESTS BYPASSED 


Cr rre aan 





2 
5 
a 
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DRIVE Seer iis PART 3 MACY11 27(1006) 31-JAN-77_ 18:30 PAGE S9 SEQ 0059 
28-JAN-77 11:05 BASIC CONTROLLER TESTS, SIZING & SETUP 


-SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP 


; 1 ea mo a pg emt 
j ATE REFERENCE ALL CONTROLLER REGISTERS 


THIS TEST VERIFIES THAT WeILITY “19 Be ACCE eer pine 
PAIR Th, ERROR Te 


i 

;# T 

;# AN Ars reo "4 RESULT IN I OTHER. 
;# "END OF PASS’ 


a 
~— 
= 


TESTS aro JUMPING T 
| a=" aptcrh aman senna amet me lagneneae op cr stE aim rn 


eee § 


3071 011042 O00004 
11 1 001174 MOV #1,$TI TERAT 
5 pies bisa ll MOV sothcn ee tApSrORE Stk Bon 
re 011056 012746 O00000 MOV #PRO, -(SP) RESET PSW TO PRIORITY O 
rb 011062 01274 011070 MOV SS, -(SP) 8 MAKE IT LSI COMPATABLE 
078 seta —— cs sting 
3080 011070 012737 011206 000004 MOV #1$, ERRVEC “SETUP TIMOUT ERROR VECTOR 
3081 011076 013705 001264 MOV SBASE RS SETUP I REG. 
3082 011102 005765 TST RKCS1URS) +RE ALL THE 
3083 611105 teres TSI RK @(85) ‘CONTROLLER REGISTERS 
3085 O11116 TST RKBA(RS) 
3086 Oilige TST RKDA(RS) 
3087 O111 l2 TST (RS) ; TIMEOUTS IN THIS SECTION 
3088 Olilse 000014 TSI RKER (RS) j INDICATE THAT T THe CONTROLLER 
oe tis bea pee a HR des 
pap Bttiss esee cere TST RKMRI1 (RS) : 
3093 011156 005765 000034 TST RKMR2 (RS) 
Spa BILIGe DOSTEE DODDSB Ter FR 
111 TST RKECPS(RS) 
30% 011172 005765 000032 TST RKECPT (RS) 
33 011176 012737 030740 o00004 MOV BBADTMO,ERRVEC ;SETUP TIMEOUT HANDLER 
3033 11204 000404 BR TSTe *:GO TO NEXT TEST 
011206 022626 1S: CMP (SP)+, (SP)+ RESTORE STACK POINTER 
011210 104007 ERROR 7 *ABORT-COULD NOT REFERENCE CONTROLLER REGISTER 
Oll2i2 000137 02374e2 IMP SEOP 


= a eam "3 - -T”  Reeremnmemeemnenmmartrcrmicmceensetcny 
SIZE THE BUSS 


i ATE 


BSS IRRIBREB 


THIS TEST IS ENTERED ONLY IF "DRIVE SELECTION’ IS DEFAULTED 
EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE 


"FROM 0 ney 7 IS ADDRESSED. 
CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET 
DRIVE WILL BE TESTED. IF SET, THE PROGRAM WILL BYPASS. 


WWW W WW WWW WWW) 
Te ed ee eed ek eel ee 


ees 
Wwrue-O 


3114 


! 


UNIBUS RK& DRIVE a PART 3 MACY11 ort ee 31-JAN-77 18:30 PAGE 60 SEQ 0060 
OZR6JD.P11 28-JAN-77 11:05 Te SIZE THE BUSS 


115 ;# roe, UE Oe DRIVE ONLY A THE ERROR WAS 


PRED BENG FTé BR Por NED & DRA RESET IN- 





ll ;# 
i Hien 
119 ii Fa peer regan erg 
t Bes tie Tete 001174 ‘ aby #1, STIMES $ 1 ITERATION 
i 11 12706 001100 MOV Stack, SP ‘RESTORE STK PTR 
i Oll232 005237 001550 INC BYPCERR ;00 NOT TEST CERR IN FRDY 
1 011238 132737 OO0e00 001231 BITB #8177, SENVM ;SEE IF USE APT SELECTED DRIVES 
1 BNE 14S§ ;BR_IF_ YES 
i Jue 12s sELSE DO NORM SIZING OR VERIFY 
4S: 

a ac a A 
1 Vv Be 
ee 

bese rat 000001 15S: gir #B81T0,R2 ; SEE f ORV IN DEVICE MAP 

8 005526 ica vS i INCR DRIVE COUNT 

THETA : iaaah 001205 i yD . & SET DRIVE PRESENT FLAG 

11319 broods aa tp 


) Higa Be ce TYPEOUT 


1 tETYPE 1 biewtegy 
‘BYTE 0 : SUPPRESS LEADING ZEROS 
10 6$: TST (R1)4 , NTER TO NEXT FLAG 
1 nn eee 
011332 001402 BEQ 178’ tS ety vee 
011334 o06002 ROR Re ELSE GET NEXT BIT OFF DEVICE MAP 
011336 000756 15S :& TRY AGAIN 
O11340 905737 00sS26 178 TST DaIVS ;SEE IF MORE DRIVES PRESENT 
01134 000137 012302 JMP NUORV ‘ELSE EXIT TEST 
il 18S: ERROR 34 NO DRIVES FOUND IN SDEVM 
il HALT SETUP CORRECTLY & PRESS *CONTINUE’ 
011356 000137 010656 IMP STS TO TRY AGAIN 


011362 012765 O00040 OO00010 12S: MOV #SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR 


DCD) GIG) GI CIGIGIG) CIID GD CIC) GDC) CEI Ca) CII CD CIC) CCIE) Ca) CC) Ca) Cn ad Cl) CE) Cad Ca) Cae) Ca) CI Ce) Lo) GUID 


Dee b= fe Rh be Bt ee Pa ee es oh be bbe pa he Pe Pe 


SSE SFHRIOR= ESEUFRLOKM ES SLFH ESHASSBVK RSENS VRRPSHLS 
Qo 
i 


370 013737 001426 oOs444 MOV T10, TEMP1 SET TIMEOUT 
376 004737 Oe44e22 JSR PC, FROY *FIND RDY 





UNTBUS a DRIVE a 0 PART 3 
OZR6JD.P11 


~“ 
~ 


WWI) 
Bes bee RS ban fs b= bs b> Be Be he b> DR ee Pw pe he 


BZSIFRZBRHEB Ia aaAZaIS 


Roeaew 


wo 
- 


dG) GG) GY) GUI IG) G) GIG) GI GG) GI Gd 
BS er ere 


BEIKR LW 


bb be be Pe 
NOt Wwe--O 


28-JAN-77 


011402 


104120 


ss — 
oO Oo 
Pot os 
= io 


So 
bee 
Ban 


ise 


1§: 


OOS434 OOS444 
O0S444 


00SS26 4§: 


Ss: 


010656 


001000 OOS4i0 2S: 


MACY11 27( 1006) 
Te 


( 
I2ZE 


a 


rants 2g Sang 


w 
me 
oO 


Suing 3 geen 


31-JAN-77 18:30 PAGE 61 
THE BUSS 


120 


hfe 


IvS 
IvO,R1 


SSTACK, SP 


@SCLR, RKCS2(RS) 


no 


;RDY NOT SET BY END OF SCLR 


;;D0 NOT SIZE, GOTO NEXT TEST 
WILL TEST DRIVES 
OF DRIVES PRE 


Dav’ aOoR 


;RESTORE STK PTR 


; SUBSYSTEM CLE 
fy 


:RDY NOT SET BY END OF SCLR 


Lager stetag 


;FIND ROY 


NO RDY AFTER SELECT DRIVE CMD. 


;SEE IF XXDP CHAIN MODE 


# BRIVE BRE SEAT FLac 


; TYPE 


; BYPASS DR # 

;WRITTEN DR # DOES NOT MATCH RKMR2 DR # 
;SHIFT PTR TO NEXT OR. FLAG 

;INC OR & 


;MORE LEFT. 


RO hee TYPEOUT 


a --OCTAL ASC 
ii DE 1 DIGIT(S) 
; SUPPRESS LEADING 


II 
ZEROS 


;NO_ DRIVES SEEN 
;SETUP & PRESS ’CONTINUE’ 


SEQ 0061 





SIRF HG STS 2 
FEE BF sco anne 
1 nt 000001 005420 
Be 1} 010000 005410 
11 14 

oA 1167e 000743 

eS fie eae cs 

ES) 11702 000737 

Se 

se 1171e 000733 

se4 We i544 010000 005410 
eS ie koe = 
SAH od 

Se Be 

oe his ee om 

oe fi BB come 

3260 

3261 

BS 

3264 

ES 

3267 

3268 

3263 

en 

3e7e 

fies 

27 ot 1 Tete 001174 
Bee pt at 001100 


Te 


MOV sSTACK, SP 


MACY11 et {4005). ge gate! 18:30 PAGE 62 


Q 95 
BR ss 
6S: ISR PC, BYP -TYPE BYP OR & 
ERROR 2 : MDS DETECTED. 
BR cs 
7S: JSR PC, BYP 
ERROR 3 UFE DETECTED 
BR Ss 
8S BIT shED, HCS2 
YPE MSG1S sDRVS 
MOV RO, -(SP) 3; SAVE RO FOR TYPEOUT 
TYPOS + se one ASCII 
Re Hy ACT 
ERROR 10 ‘au & NED BOTH ie ZEROS 
BR cs 
9s JSR PC, BYP 
ERROR a NO DRA & NO NED = OTHER PORT SELECTED 
10S: Re NUDRV 
3 KEGERKALELGGKEALA REESE AEA SRE ERE RE REAR AREAER RRA RARER EE HARKER KE 
j ATEST 3 VERIFY OPERATOR DRIVE SELECTIONS 
* THIS TEST "em ENTERED ONLY IF IF DRIVE Te Asbeessep 1s NOT 
* DEFAULTED. eban 
a § Ma THe ee OF WILL 
2 ie Br ERROR ERROR. 
He Wa gl 
ii ti gate iReoutt OF 
ii VERIFY eit WAS Rot CEPEC IFIED 
} o REGGE REGGAE EERE AER RE RRR RRE RRR KERR AER ELE EE 
+é13: SCOPE 
MOV #1, STIMES 1 ITERATION 
HOV TACK, SP igsrone Sh STK PTR 
vi MOV #ORIVO,R1 :DRIVE FLAG 
; SCOP1 


;RESTORE STK PTR 


SEQ 0062 





SEQ 0063 


© aa 
é 
: Jor 
w g S ¢ te 
4 = a i 
5 ra) $ m2 “ a m 
a5 § b pigh = a 
SEES © - Sb & ca 
3 ¥o- > = ea ts = Pater] 
g per bs y fe his ee g EE 
a ef S BRHES 5 E i 
os ip & ie 
“Ss & aw - 
“Re oe see, 2 be Rok & 
as § Ltr cette tee 455 oS . +s 
’ = es We ie = 
“ig ions A ees bg Sees gy aR: See 26% ou 
gz ie 
SE BERESBERESURCRUDSDeeyS REDguTs Big EULbCeGgehong Bee Be 
Bo 26 ¢ 8 @ & g 8 3 
= 8 2esgse3 g 
- FP 2 
Ee Be be geese 8 
s Efe a4 
BS ad eS TLE ; 
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‘ NOS 
UNIBUS Kb DRIVE DIAGNOSTIC PART 3 ACYI1 271006) 31-J9N-77 18:30. PAGE 64 
OZR6JD.P11 TOR DRIVE SELEC 


28-JAN-77 11:05 T3 VERIFY OPERA TIONS 
a 012256 000762 BR 8s 
1 025130 7$: SR PC, BYP 
Biseey Tosoes 5 ,UFE DETECTED 
ee 012266 000756 BR 8s 
130 9S: PC, BYP 
RisszR ORaoo4 _ ERROR 4 ;DRA & NED RESET - OTHER PORT SELECTED 
3347 012276 000752 BR 8s 
012300 001237 BNE 1$ ;BRANCH IF MORE LEFT. 
THIS PART OF THE PROGRAM WILL BE REPEATED FOR EACH 
;DRIVE PRESENT 
i 
ia T’ CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY 
SUNDER TE 
012302 005037 001550 NUDRV: CLR BYPCERR ENTER HERE FROM LAST TEST 


TEST CERR IN 'FROY’ 


57 HHNHHIHIHHIHHEEHIHIHEEHHIHIHHHIHHIHHIEHHIHEHHIIHHIIEEHHIEEHEEEE HEHEHE 
;ATEST 4 ; FIND NEXT ORIVE TO BE TESTED 


# 
* i TH ST FINDS THE NEXT DRIVE PRESENT & PUTS THAT 
ADORE SS IN SURI 





b 

Q 

a 

3364 

3365 i 

er ti THE FOLLOWING TESTS, THE ORIVE TESTED IS 

Es is THE DRIVE WHOSE ADDRESS IS IN 'SUNIT’. 

3371 012306 } ee ee Co ee 

a a a ee 

3374 Ole322 012737 OO00004 001214 MOV SSTN-1,STESTN ° 

3375 012330 012737 000004 001102 MOV SSTN-1, STSTNM 

oe ES EE Bes ay am Pres 

s 660137 IP oe iN, 60 YO END 
Bae NE Ben Score 

od Q Hs TBs BRANet 
1s: INC SUNIT 3 INCR DRIVE ADDR TO NEXT DRIVE 

a of UB, FREES Ellie presen 

3388 TST DOPCH ; DOP CHAIN MODE? 

2 IN BL har HR SRY onave o 
ee Et om tito tales Woe ict a. 

Be BIE UN ee GRE 3 


DORE ID. ait ORI) Be 1ts0s goon” Ryova erin Rexr DRIVE 0 TO Pde it ny oe 


012426 01004 MOV RO, -(SP) Hua FOR TYPEOUT 
Tee maar ee Bee Toi 
FS pies 000 “BYTE 0 Hi che) NG ZEROS 
3101 012434 104401 001205 TYPE  ,SCRLF 
0 SRT: R FA TART 
io _— : Pp eeaeeseveusenecuanuneneeenaesiconseasensstaneanesaneaacoations 
3405 jkTE PRINT DRIVE SERIAL NUMBER 
Mi + THIS TEST READS & PRINTS THE DRIVE SERIAL # FROM MSG A, WORD 11 
3408 is IN BCD & IS PERFORMED ON THE IST PASS ONL 
a 012440 o00004  eeuesnreneeneeueeerenntnseneesnenseantanennean 
gle Oleic 012737 000001 001174 "MOV #1, STIMES ; ine 1 ITERATION 
si13 12450 012706 001100 MOV aStack, SP "RESTORE STK PTR 
M1S 012454 005737 001216 TST S 
S16 Oisibd B01 046 ST6 ;:GO TO NEXT IF_NOT FIRST PASS 
3417 01 026332 ISR PC, SUBCLR ho CLEAR 
a8 012466 104024 ay -CERR AFTER SCLR 
He0 012470 104401 037301 TYPE MSG16 ;DRIVE SERIAL NO 
Hel Glei74 01 000003 000026 MOV B3,RKMRI(RS)  ;SELECT BYTE 3 
3155 OiSs0e BiarB, pean mw OMe iy SERIA 8 
Hey Oigs1 gie7os 034764 MOV SSOCTVL, RY iGET poo BUFF 
es oi 16 01 MOV RY, -(SP3 : STORE TACK FOR SSUPRS 
sige 1 O1e7a3 000003 MOV 83,R3 ‘SETUP CHAR COOUNT 
gic? oi 101 ROL Ri : INITIALIZE BIT POSITIONS 
gics oi B0e101 1S: ROL RI ;GET NEXT 4 BITS 
3431 012534 006101 ROL Ri 
E 12536 1 ROL Ri 
12540 O01 MOV R1,RO GET WORKING COPY 
HM Ole 177760 BIC #177760, RO *CLEAR ALL BUT LOW 4 BITS 
Ws (O01 052700 BIS #60, RO i CONVERT T ASCII DIGIT 
gx i jogs nove RO, (RM)+ ;PUT ASCII DIGIT INTO CHAR BUFF 
438 O1eS55 364 BNE 1$ ;BR IF ALL 3 CHARS NOT DONE 
a 12560 105014 CLRB os: (R44) {ELSE INSERT NULL TERMINATOR 
012562 035232 JSR PC, SSUPRS - TYPE 
012565 104401 001205 TYPE  , SCRLF : 
012572 001205 TYPE  ,SCRLF 


39 
M41 
EM 
4S 5 Me aE EAE aE A AE AE a ab a a a a aa a aH a aE EEE EERE 
Siu9 -kTEST 6 SET VV WITH PACK COMMAND 
SHHR 
3449 
3450 


3 
H IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 
ririiitiitiitiitiitiitititiiiiititiiitittitititiiiitiiiiiii ess 


UNTBUS 
OZR6JD. 
a1 
te 
fe 
3458 
34593 
3460 
s61 
S62 
ee 
3467 
3468 
s469 
3470 
3171 
ae 
S74 
375 
3476 
3477 
3478 
3179 
3480 
3481 
i: 
S484 
oe 
me 
3489 
a 
te 
g 
S 
3502 
ES 
3505 
3506 


CO6 


MACY11 2711006) 31-JAN-77 18:30 PAGE 66 
Té SET VV WITH PACK COMMAND 


sbtRckrse == fABSrOnE Sik PTR 


PC, SUBCLR 
e4 ;CERR AFTER SCLR 


TST6: 


80. VV, HMR2 
TSt7 ;;GO TO NEXT TEST IF vv SET 


sSTACK, SP ;RESTORE STK PTR 


PC, SUBCLR 
24 ;CERR AFTER SCLR 


wPACK RKCSI(RS) ;CMD TO SET Ww 
0, TEMP 


Pe OERDY sFIND ROY 
RDY NOT SET AFTER PACK CMD 


80. VV, HMR2 
1317 TO NEXT TEST IF VV NOW SET 
taeK DID NOT SET 


. ee nee eter ae oe Me ee ee 
jATEST UNLOAD DRIVE TO BE TESTED 


ie THIS TEST UNLOADS THE’ DRIVE TO BE TESTED NEXT 
: WAITS FOR ATTN & VERIFIES IT CAME FROM THE CORRECT DRIVE. 


A 
itiiittittiitiittittiittittiittititiititiiittittiiititeiiicy! 


+617 
MOV #1, STIMES ;;D0 1 ITERATION 
MOV aStAack, SP 


UNLD ;USED TO CHECK FOR VALID HALT 


PC, SUBCLR 
24 ;CERR AFTER SCLR 


RKCS1(RS) ;UNLOAD CMD 
110, TEMP 


INO ROY AFTER UNL CMD 


4 TSTATN 
20° ;NO ATTN AFTER UNLOAD CMD 


-SBTTL OPERATOR INTERVENTION TESTS 


4 et ee ees dtek WRT ee ere tee 
jATES INTERLOCKS TESTS 


+ THIS TEST VERIFIES THAT THE DOOR & CARTRIDGE STATUS BITS 
3% ARE OPERATING PROPERLY IN MESSAGE AQ & THAT THE REMOVAL 





~R 
er 


oo ooo 
fh es 


Le 


oOoooooo00o 
= Ph he fe be b= fee 


hh eh hh he he te 
WWWW WW WWWWWW) WWW Ww 
pant nt ae tn dt te ed ee 
NeOF LE FESS Von? ABR Ee 


RRR UR EoRCU seca atoes saeUmaoRe Monn oR Renee eee eae ts 


DIAGNOSTIC PART 3 MACYLL 27( 1-JAN-77 18:30 PAGE 67 SE 7 
ll: T10 opeipan Tels pete 
# rainy aa CLEARS VOLUME VALID. 
i ALL REMAINING STATUS BITS OF 
1 BRA Re iam nag 
i a 30 Fre VALID RESETS SACK WHICH 
is TS NON EXISTENT DRIVE IN RKCS2 
- EPLBKEPRERELE PRES LARA ERAESRERAKRERRRASS CAPEKRERESRL AE MELE ESSE ERE 
900001 001174 tBn10: ay al. STI TERATION 
001100 NOV stack oP ‘Reset Leek Thee EVR 
026332 JSR PC, SUBCLR 
ERROR 24 CERR AFTER SCLR 
0015S0 INC BYPCERR DONT DO CKCERR ROUTINE 
037004 TYPE MSG s INTERLOCKS TEST 
041656 TYPE :CONT-E TO ext OR SPACE TO CONTINUE 
030306 JSR Pc, CCSP : INPUT OR E 
13634 IMP ag :RET i -£ 
041350 TYPE ,MSG47 ;VERIEY DOOR CANNOT BE 0 OPENED 
er JSR Be tsp i epace 
043323 TYPE  ,MSGES s DEPRESS RUN/STOP SH 10” “STOP” 
o40so2 TYPE MSG37 “space Ba 
sas mR 
1 000026 HOV si’ 1(RS) CT BORD. 1 
racer 005434 BIT o. > 
ERROR 44 ;DOOR STATUS BIT NOT CLEARED 
900140 O0S476 1S: HOV #<D.DRALD. W> ,E.AQ EXPECTED AO 
000540 o0ss0e2 MOV —-#<D. HDHM!D. BRHM!D.CART>,E.Al 
000001 005504 MOV ,£.B1 
025144 JSR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
, HORD o'bto :8 CIFIED HERE 
ERR 4S : MSG AFTER DRIVE UNLOADED & DOOR OPENED 
ERROR 63 neo Al 
ERROR 64 MSG Bl ERROR 
026332 JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
T ‘ PRESS "RUN-STOP’ TO RUN’ 
Bupeee Tyee RSGad VERIFY DOES NOT START 
o40S02 TYPE MSG37 
030346 JSR PC, GETSP GET SPACE FROM TTY 


2 
5 


BB Ren TERCB SH IHRIER BORA O DRM aS oo aac oe ORT EE é 


RRR 
ONOWMLWVe-O 


nD 
~— 


TIC PART 3 HACY LL 271 1-JAN-77 18:30 PAGE 68 SE 
BEE PG RITES SFG TR — 
013176 004737 025760 JSR PC, GSTAT 
Tea Bard] 010000 005434 Feb. phen en 
i 1 ;SPIN SET IN MSGAO 
i 4 rs O0S476 2S: HOY , DRA!D.VV>,E.AO ;EXPECTED MSG AO 
1 1 oosso2 V .HOHM!D.BRHM!D.CART> ,E£.AL 
013234 012737 000001 o0SS04 MOV 1,€.B1 
013242 004737 025144 JSR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
Oi sesg 1 ERROR re nse 6 Fenoy Ack RE TENPT TO START SPIN 8 DOOR OPEN 
l ’ nF 
013254 104070 ERROR 70 *MSG Al ERROR 
013256 104071 ERROR 71 :MSG B1 ERROR 
1 026332 J PC, SUBCLR 
Bt re E ou! ;CERR AFTER SCLR 
013266 104401 043323 TYPE MSGS ;DEPRESS *RUN-STOP’ SW TO STOP 
Glee iBNB! Bi RE RB HENNE ro 8 Stee on 
013302 004737 030346 ISR PC, GETSP GET SPACE FROM TTY 
013306 012755 900001 000026 MOV #1,RKMRI(RS)  ;SELECT WORD 1 
13314 O04 025760 JSR PC’ GSTAT 
015320 O3e737 000400 005434 BIT 80 CART , HIRE 
ot 58 104072 ERROR 72 ;CARTRIDGE STATUS BIT NOT RESET 
13332 004737 026332 3S: JSR PC, SUBCLR 
013336 104024 ERROR 24 ;CERR AFTER SCLR 
013340 104401 040310 TYPE  ,MSG3S PRESS "RUN-STOP’ TO ’RUN’ 
O14 1 ! o40222 TYPE MSG VERIFY DOES NOT START 
013354 004737 030346 JSR PC, GETSP ;GET SPACE FROM TTY 
013360 004737 025760 JSR PC, GSTAT 
O16 ° 010000 005434 BIT 0. SPIN, HAR2 
Bt G ett ERROR l -SPIN SET IN MSG AD 
013376 104401 043323 SS: TYPE  ,MSG&S PRESS "RUN-STOP’ TO ’STOP’ 
Orne ate O40 TYPE MSG3B jl T T CARTRIDGE SET 'RUN’ SW. & CLOSE DOOR 
i { bo4737 sue Tore af TSP iper Es § nce en ae a 
TRE 005037 636378 CLR UNtbe *FOR VALID HALT 
Q13426 012765 100000 oo0000 MOV #CCLR, RKCS1(RS) 
OL ia 000026 CLR RKMRL (RS) ;SELECT WORD 0 
1 37 025760 JSR PC, GSTA 


& 


8 
ve) 


SR SSeb ORR CERT REBORN NO RSS Ska EoReSORCRR EDR MeO 
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3444 032737 000100 005434 BIT 8D. VV, HMR2 
rire OR VV NOT CLEARED AFTER PACK RE-INSERTED 
6 nek iste 00S476 7S: HOY 8D. DSC1D. SPIN!D. DROY!D. DRA? , E.AD EXPECTED AO 
1 1720 oosso2 MOV 8<D. SPOK!D. CART!D. SSP!D. BRHM!D.DOOR> ,E.Al 
013476 012737 000001 O0SSO4 MOV #1,€.81 
1 025144 PC, CHKMSG CHECK MSGS AD Al, Bl 
eat eee ofdio ts MSGS SPeciPtep™ HERE 
i tears 74 A eS AFTER PACK REINSERTED & HEADS LOADED 
16 i oP : 1 
3820 104077 77 *MSG B1 ERROR 
3538 1 490000 000000 #CCLR, RKCS1(RS) 
1 l222 000010 SUNIT;RKCS2(RS) ;DRIVE # 
353% 012765 000003 000000 SPACK'RKCSI(RS) ;PACK CMD 
3544 013737 001426 o0S444 T10, TEMP! 
3552 O24422 PC, FROY ;FIND CONTR RDY 
3556 104116 116 “CONTR NOT RDY 
3560 032737 000100 005434 BIT 80,.W, HMR2 
3258 iter, ae RROR 27 ; VOLUME VALID NOT SET AFTER PACK CMD 
3572 005237 005370 pe UNLD ;FOR VALID HALT 
004737 026332 JSR PC, SUBCLR 
104024 ERROR 24 ;CERR AFTER SCLR 
RKCS1(RS) UNLOAD CMD 
GIST Bers a IN 
1 737 Oe44e2 JSR ;FIND CONTR RDY 
7 RROR — *NO ROY AFTER UNLD CMD 
024704 SR , TSTATN 
1 ERROR 20 ;NO ATTN AFTER UNLOAD CMD 
013634 8S: 
: ee en cee Gee Bee Be ee 
jATEST UNIT SELECT PLUG TEST 
ti THIS TEST IFIES THAT WHEN THE UNIT SELECT PLUG Js PULLED 
ti co arty UME VALID 
i ihe TH Tie IVE aeePATS 
le UNIT SELE BY WER oF 
;# rat Ma SOON Rit His NSERTED. 
i THIS SATION OF THE TEST IS TERMINATED AT ANY TIME BY A CONT-E 
: + EREREREKELE ASHE RRA SL REEAE SK KE KES RES SARS RAMEE RERRE RHEL ERK ES LEEKS 
13634 000004 téTi1: Sc 
13636 012737 000001 001174 MOV #1, STIMES ::D0 1 ITERATION 
13644 012706 001100 MOV aStACk, SP ‘ AeSTORE STACK PTR 


UNIBUS Pa DRIVE DIAGNOSTIC PART 3 ee 27(1006) 31-JAN-77 18:30 PAGE 70 SEQ 0070 


28-JAN-77 11:05 UNIT SELECT PLUG TEST 
1 026332 PC, SUBCLR 
a Bt eS ZRROR 24 ;CERR AFTER SCLR 
3678 013656 104401 037355 TYPE eee ;UNIT SELECT PLUG TEST 
3%79 Meee Me 041656 TYPE Gee :CONT-E TO To exit OR SPACE TO CONTINUE 
ay Bie Beclae OT ep og ces $ADCUT, CONTE 8 Seewe 
re 013676 012765 000020 000026 MOV BPAT.RKMRI(RS) ;EVEN PARITY TO GET DSC 8 ATTN 
36.84 bia 737 025760 JSR PC, GSTAT 
3685 13710 032737 001000 005436 BIT 80: PAR, HMR3 SEE IF PARITY SET 
a] Biz ae para BNE oR 114 iP T otto? ret AFTER SEL DRIVE CMD 
3688 iI [TH EVEN Pa Y ISSUED. 
2 oon ne oe ie oe ee 
231 013732 104107 ERROR 107 a NOT SET AFTER SEL DRV WITH EVEN PARITY 
3693 013734 012765 100000 000009 1S: MOV ee RKCS1(RS) 
 Blarie Bos yan rn 
s 01 704 J TATN 
3 013752 104113 ERROR Af NO ATTN AFTER SEL DRV WITH EVEN PARITY 
= 013754 104401 037030 TYPE  ,MSG9 ;REMOVE UNIT SELECT PLUG 
3699 013760 104401 oO40S02 TYPE MSG37 DEPRESS SPACE WHEN DONE 
3700 013764 004737 030346 JSR Pc, GETSP GET SPACE 
1 000000 MOV SCCLR, RKCS1(RS) 
vie g1a77 Dares sono nov sROLR 
3704 O14002 004737 024704 JSR PC; TSTATN s RETURN HERE FOR SPACE 
3705 ot 000401 BR 3$ ;NO ATTN 
3706 tt 104111 ERROR 111 {REMOVING UNI UNIT SEL PLUG, DID NOT 
3503 rst preres Raat > Becmamaee’™ se SCOLR,AKCSICRS) 
3710 014024 eee 010000 000010 BIT 8NED, RKCS2(RS) 
ae ate Ite ERROR tie DID NOT 
at QPP 
3715 0!4036 104401 043371 4g: TYPE MSG67 Ree ALL OTHER PORTS 
oS lita Ba0s46 mw : —— 
z17 1 7 JSR Pc, GETSP 
3719 O140se 104401 O40S46 TYPE ,MSG38 ; INSERT UNIT SELECT PL as 
50 sts pao ‘y T , Bari comect ae cet Buc 
37ee O14066 013746 001222 MOV $UNIT, -(SP) 
Es 014072 104403 T Hig TAL 
2S 014074 001 -BYTE 1 :: TYPE | DIGIT(S) 
3726 014075 000 "BYTE O :: SUPPRESS LEADING ZEROS 
763 014076 104401 001205 TYPE ,SCRLF 
014102 105037 033260 CLRB  STKQSRT ;CLEAR PREVIOUS INFO 
3730 014106 005037 001160 CLR $TMPO 


HO6 


4400 104117 ERROR 117 ;CONT NOT RDY AFTER SEL DRV CMD 
010000 op0010 T D,RKCS2(RS) ;SEE IF CORRECT PLUG FOR EXIT 
Be fi : OS : ‘BR i? YES 


UNIBUS RK& DRIVE DI TIC PART 3 NACYLI 27(1006) 31-JAN-77 18:30 PAGE 71 SEQ 0071 
DZR6JD.P11 28-JAN-77 11:05 Til UNIT SELECT PLUG fest 
1 
3 014112 113737 033260 001160 SS: MOVE  STKQSRT, STMPO sGET CHAR IF THERE 
es bisiss Boer 4708 001160 BIC 811775, STMPO ;GET RID OF JUNK, IF ANY 
141 1 BEQ bg ;BR IF NOTHING TYPED YET 
37% O14134 001160 o00005 CMP TMPO, 8S : IF ONT-E 
3, Blataa Ree tere tr EON 
141 001160 000003 , 43 ‘SEE IF CONT-C 
3740 taiee pONea? OBS STKINT Oe ee INT 
a He ee a, eS aholeibe: 
ies 1 : ORE gTegeaT Fs 
ms 014174 004737 033262 JSR PC, STKINT 
014200 o0s000 6S: CLR RO 
3747 O1Nie0e 12768 190000 oo0000 7S: MOV sCCLR LR, RKCS1(RS) os 
aug Biasig bieres creel 000009 HOV aeeda «RSI TEL ect DRIVE CMD 
cle : pt Ss5 p04737 poease veep TOR T10,tere ;FIND CONTR 
es tee 104117 ERROR 11? :CONTR ROY NO ‘SET 
014236 032765 010000 000010 BIT SNED,RKCS2(RS) ;SEE IF UNIT SELECT PLUG INSERTED 
Fe) O1uews 901405 BEQ :& IF MATCH DRIVE NO IN CS2. BR IF YES 
373? O1esd 020027 000010 cre RO, #8. ;ALL_8 DRIVE NOS TRIED? 
3758 piasee Peat BR 53 ELSE RETURN 
3761 014260 032737 000100 005434 BS: BIT 80. VV, HMR2 
3762 O1Nebb ateree BNE pats. ; TYPE SAME UNIT SELECT PLUG RDY ONCE 
ve OlNere ot AppB pH 220000 RO Re DRIVE ADOR 
3765 014 12765 000003 000000 8PACK,RKCSI(RS) :PACK CMD 
: BS orate need a peti Mer 110, TEMP ; sFIND CONTR ROY 
See bivses SO ERROR 116 ENR ROT ROY 
3769 014324 010046 RO, -(SP) i198 RO FOR TYPEOUT 
3771 014325 104403 YPOS 360 T MTT eth Poser 
376 4 001 TE i Bee DIGIT(S) 
14331 000 BYTE +S SUPPRESS LEADING ZEROS 
3774 014332 104401 001205 OS ORLF 
3775 Ol 000665 &s 
os 014340 004737 033262 9S JSR PC, STKINT “ENABLE KB INT 
3778 014 1 oo0000 MOV acttR, S1(RS) ° 
773 1 900019 MOV TRKCS2(RS) 
1 I MOV CS1(RS) 
378} 005444 MOV 
3783 
3784 





2 
5 
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ee Snauen 
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ed ee eee 
ONOWCWEHO 


Se sae IRRERR COSA NTs 


sys & 


IAGNOSTIC PART 3 
11:05 


042137 
001222 


O41141 


005434 


001174 


000010 


My tt eentt Seueet Proc test’ ME” 


10S: 


118: 


12S: 


mSGSS 
$UNIT, -(SP) 


, MSG 
MSG39 
és 
,MSG71 
MSG37 
PC, GETSP 


SEQ 0072 


;CERR AFTER SCLR 


sVV_NOT SET, INSERT UN 


IT SELECT PLUG 
‘DEPRESS CONT-E TO EXIT TEST 


TES 


;SELECT CORRECT PORT ON OTHER DRIVES 
:TYPE SPACE WHEN DONE 
:GET SPACE 


53 3UHHBHHHIHHIHHHHHHIEEHHHHHHHHHHHHHHHHHHHHHHHHIEEHHHHIHIEEHHEHHE 
PORT SELECTION TESTS 


+ THE OPERATOR IS ASKED TO SWITCH TO THE WRONG PORT 
1 & THEN DESELECT BOTH PORT 


‘TEST 12 
-& 


BO , 
: IN BOTH CASES, NON EXISTENT DRIVE SHOULD ASSERT IN RKCS2 


j, sessunsneeqesssssonnonsnssnansenansnsenncnnesenennnnensennsnses 


téTi2 
V 


1S: TYPE 


sky STIMES 


PC, SUBCLR 
e4 


PC, GSTAT 
NED, RKCS2(RS) 


lee 


»MSGHe 


APS bad ERACK Pre 
;CERR AFTER SCLR 


;PORT aeLre rion TESTS 
;DEPRESS CONT-E_ TO EXIT OR SPACE BAR TO CONTINUE 
; INPUT CONT-E OR SPACE 


OR 
;RETURN HERE FOR CONT-E 


UE EL Ee 


;NED NOT SET AFTER WRONG PORT SELECTED 


;SELECT CORRECT PORT 


UNTBUS no DRIVE tm tt pe PART 3 
OZR6JD.P11 ( 28-JAN-77 11:05 


PERE RRERSERELE LE LS SS SECS EIEOTE ° 


014604 
014610 


014716 
014 


104401 vane 
004737 030346 


000010 


000010 


7 er 27( 1006) 
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PORT SELECTION TESTS 


TYPE 
JSR 


BIT 


4§: 


jkr EST 


;DEPRESS SPACE BAR WHEN DONE 
Be GE TSP :GET SPACE 
PC, SUBCLR 
24 sCERR AFTER SCLR 
®NED, RKCS2(RS) 


;NED NOT CLEARED AFTER CORRECT PORT SELECTED 


a ee 
ie 


PC, GSTAT 


BED, RKCS2(RS) 
133 NED NOT SET AFTER BOTH PORTS DESELECTED 
, MSGHY ;SELECT CORRECT PORT 
MSG37 ‘DEPRESS SPACE BAR WHEN DONE 
PC, GETSP 
PC, SUBCLR 
2h ;CERR AFTER SCLR 

RKCS2(RS) 
fetid ;;GOTO NEXT TEST 
130 :NED NOT CLEARED AFTER CORRECT PORT SELECTED 
accLR, RKCS1(RS) 

RRCS2(RS) 
nie ;:GOTO NEXT TEST 

fn ih A Uy a 

ean _ 


4§ 


pl fad legal capleTE a S 


AC LOW DETECTION 


ST ror Oe Tes Te per oRneD HERE WHILE HEADS ARE UNLOADED. 


T BE TESTED DIRECTLY SINCE IT REQUIRES SECTOR PULSES 
ICATOR CHECKED IS NON-EXISTENT DRIVE (NED) 


ASSERTING IN RKCSe AS A RESULT OF DCLO. 
AFTER POWER UP, 


VOLUME VALID IS CHECKED TO BE CLEARED. 


$i Sb Sb Ob 36-46-06 06 ab a aE ab ab ab a a a aaa a aa aaa aaa a aa 


uae SCOPE 
MOV 
MOV 


#1, STIMES ITERATION 
STACK, SP ‘Ae STORE STK PTR 


SE@ 0073 


KO6 


ig “Ac TOR oefection’ pant) SO” 


SEQ 0074 


Pit NG SRST PT 


: 


ws 3 a, 
@ = 
eae > 8 S 526 5 ee &B 
gfe, Fe bgt getgg * 
S tose & go0 di 5 3.8 © Son 
te oes - ne 5 se ¢ sszg BB . 38 
ar a en | Ra = “= - « 2 a 
BeSst® & Has Batty Rises 2 = 
2 8 eee 
rm ao ties 
3 34 = > ax 
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MACY11 27(1006) 31-JAN-77 18:30 PAGE 75 
T13 AC LOW DETECTION PART 1 


PC, FROY FIND CONTR ROY 
ERROR 116 ‘CON NOT RDY 
BIT 10.W, , HMR2 
ERROR 27 VOLUME VALID NOT SET AFTER PACK CMD 


108: 


: Re Go eee tee ae es 
‘ATE CHECK NXF LOGIC 


* 
i Hise TEST VERIFIES NON-EXECUTABLE FUNCTION (NXF) IS DETECTED 
# AS A RESULT OF DOING A SEEK WITH VOLUME VALID RESET. 


Sa, Pon ae epee 

#1, STIMES ;:00 1 ITERATION 

MOV astAack, SP ‘Re STORE STACK PTR 

ISR PC, SUBCLR 

EKROR 24 CERR AFTER SCLR 

BIT 80.SPIN, , HMR2 SEE IF SP SPINDLE ALREADY ON 

aie ,MSG29 iBR, TE. YES WAIT, HEADS BEING LOADED 

MOV SSRTSPL,RKCS1(RS) ;START SPINDLE CMD 

MOV T10 1 

JSR PC, FRDY ;FIND CONTR RDY 

ERROR 143 ‘CONTR RDY NOT SET AFTER CMD 

MOV T100, TEMP2 

JSR PC, FATT sFIND ATT 

ERROR 144 =NO ATTN AFTER CMD 

CLR UNLD 

64S: 

CLR UNLD ;FOR VALID HALT 

JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

> : o Rint 

T i PRESS -E TO EXIT OR SPACE TO CONTINUE 

JSR Pc, CCSP j INPUT CONT-E 

JMP 7$ “RETURN HERE FOR CONT-E 

TYPE  ,MSGS ;REMOVE UNIT SELECT PLUG TO CLEAR VV 

TYPE MSG3 “PRESS SPACE WHEN DONE 

JSR PC, GETSP GET SPACE 

JSR PC, GSTAT 

BIT #0: W, 

BEQ 1$ 

ERROR 177 VV NOT CLEARED AFTER UNIT SEL PLUG 


UNIBUS RK& DRIVE at PART 3 
OZR6JD.P11 § 28-JAN-77 





PRCERPR GUNNA RES C2aTae2 soNTRA SOR OR IN NOI 


015740 


015752 


032737 00200 


0157S2 


Ue U 


Ss: 


27(1006) 31-JAN-77 18:30 PAGE 76 
CHECK NXF LOGIC 
IMP 7$ ;EXIT TEST 
BIT 80. VV, HMR2 
ies ; 37 AFTER HEADS LOADED 
;EXIT TEST 
PC, SUBCLR 
ERR e4 ;CERR AFTER SCLR 
#1, RKDC( 


Hae Fees Z 


o 
| 
4 


s 


o 
od 
— 


g $333 re 


ee 


gaS228 a8 


BIT 


RS) 
SSEEK,RKCSI(RS) ;SEEK CMD 
TiO, TEMP 

PC. FROY FIND RDY 


131 "NO ROY AFTER SEEK CMD 


TN AFTER SEEK CMD 


#0. NXF , HMR3 
;NXF_NOT set AFTER SEEK WITn .v=u 
sEXIT TES 

#0.FLT,HMR3 

ife po DID NOT SET FAULT 
;EXIT TEST 


#<D.0SC! NE Y!D.ORA>,E.AO ;EXPECTED AO 
+B. FaE IB A ee po. 
a . SPOK?D. .CART!D. DOOR!D. BRHM!D.SSP>,E.Al 


PC, CHKMSG ; CHECK MSGS AQ, AD 80, Bl 
T.A2!T.B2!0 Metep HERE 

160 iNeG ag frags Sree eek WITH VV=0 
162 MSG Al ERROR 

63 MSG B1 ERROR 

giao 

157 ;HEADS MOVED WITH SEEK 8 DXF 

PC, SUBCLR 

24 sCERR AFTER SCLR 

SSF RI sons 

Sone’ RK tne) i PACK CMO 

T10, TEMP 

PC, FRDY ;FIND CONTR RDY 

116 ‘CONTR NOT RDY 

#0. WV, HMR2 


SEQ 0076 


DURGID.PLi  SB-NN-7? Li:0s 


4067 015746 001001 
15750 104027 
1S7Se 
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NO6 
WACYLL 27(4006) 31-J0N-77 18:30 PAGE 77 SEQ 0077 


BNE 6S$ 
cs ERROR 27 ;VOLUME VALID NOT SET AFTER PACK CMD 
7$: 


55 a a HE 
tTest 1 iS READ & SAVE BAD SECTOR INFO & TYPE P PACK SERIAL # 


THs PEA CONTAING BAD SECTOR ThFOR te ICH Ts IS BAIT 
AT THIS Fine fo AAGK FUTURE READ HEAOER On CATA Ah 5 


SEETORS To"12s94°,6) 18,20 CONVAIN YokNricAL FILE FSI 
fi BSE oe ee TAL AY RLISTORT BTR penis ng oe INFC 


BONE sO PROT 10 DESTROY” ase INFOR OR A OR AN RALICNNENT PACK BY WRITING 


al akan vob ascreepntl! ayes 7 adem: 
3 JHIHIHIIHIHIHHHIHIHIHHEIHIHIHHHIHIHHHIHIHHHIHIHI HHH HIGH HE 


ite SCOPE 

MOV #1, STIMES ;:D0 1 ITERATION 

MOV eStAcK, SP ; RESTORE STK PTR 

JSR PC, SUBCLR 

ERROR 24 ;CERR ie SCLR 

LR TENDS je bk OR HARDWARE DETECTED TABLE 

CTOR SOFTWARE DETECTED TABLE 

Mov SESESOH, TENDS + ETORE 22 SECTOR HARDWARE BSE ADOR. 
MOV «81000, TEMPS ;TRACK 2, SECTOR 0- 

MOV *RKDA(RS) 

1S: MOV #410. ,RKDC(RS) ;CYL 410 

MOV 8-256. (RS) sb WORD 

ray aR eer! vee Paneacpm 

JSR PC, FROY FIND RDY 

226 NO ROY AFTER READ DATA CMD 

JSR PC, GSTAT GET FRESH DATA 
Bee se R,HCS1 

RROR 227 ;CERR AFTER READ DATA CMD 
HOV f <0!D. SPIN!D.ORDY!D.VV!D.DRA»,E.AO ; EXPECTED MSG AQ 
fiov . SPOK!D. carT!6. :$ >,E.Al_ ;EXPECTED Al 
MOV + E\ Bl 1b FOR ay D'MSG B1 

CLR E.A2 EXPECTED MSG me 








UNIBUS RK& DRIVE prnangs TiC PART 3 ereval E71 D0) SEQ 
OZR6JD.P11 28-JAN-77 11:05 T1S ve BAD Zk (md PACK SERIAL # seth 


4123 O16142 O01 oo0002 005510 MOV #2,£. :MSG ID FOR CTED MSG B2 
41 0161S) O1 000003 005514 MOV SEE :MSG ID FOR CTED MSG B3 

4 4y J PC, CHKMSG HE Bi 

ie BE Bog Bry Slt" PFS MBit 

41g8 bibs 1 ERROR 54 he 80 AFTER READ DATA CMD 
4130 16170 1 ERROR ep MSG Al 

we BIEL BRD cose SE" Been 

ue He Bey ee ne 8 Tore Soak la cadie 

ME i 06 CMP 2,85 READ ALL S SECTORS? 

8 GI Be conse BY ibeo 

4138 01 1 BNE 2s 

4133 O1bees tal ERROR Ibs CANT READ SECTORS 0,2,4,6,8 
aia Ole 1 167 2s ERROR 167 CANT READ SECTORS 10,12, 14,16, 18,20 
ates 016234 013765 oOS4¥S2 000004 Ss MOV TEMPY,RKBA(RS) ;RESTORE TABLE ADDR 

ahd Olbeve Oe? 37 900008 o0s4s4 R00 #2, TEMPS a ‘SETUP TO READ 2 SECTORS FROM LAST 
414? 016256 ected sm BR is ’ 

4149 016260 005237 o01S4e2 3s INC BSERR ;SET 

diet bieee Oos737 002376 es: fer geese it eer 10, ONEXT TEST 

4152 Oitere 1 BEQ t BRBNCH TF Data Cant CARTRIDGE 

4153 ibe” O4401 042217 TYPE MSGS :ALIONENT Or TRIDGE USED 

4154 Ol 001542 INC ASERR SET BSE ERROR FLAG 

4155 016304 OO0425 BR 10$ 

4157 016306 g0s237 00S4S0 95 INC TEMP3 

4158 Oibsle 005450 000001 CHP TEMPS, #1 

4160 pipes Oost37 DOs¥ie CLR 

4161 O163e6 O1 oos4s2 MOV TE! ;STORE 22 SECTOR SOFTWARE BSE ADDR 
4162 016334 O13765 000004 MOV TEMPY , RKBACRS) 

4163 Oibse 1 1012 O0S4S4 MOV #1012, TEMPS TRACK 2, SECTOR 12 

4164 O1 013765 005454 000006 MOV TEMPS; RKDA(RS) 

Hibs 016356 137 016034 IMP ; REPEAT 

4167 016362 005737 001216 10$: TST SPASS 

4169 

4170 O1 001014 BNE 138 i TYPE CART # ONLY ON 1’ST PASS 
417 Ot Ow401 037326 TYPE 17 CART SERIAL & 

di7e 1 bt 102370 MOV 2H, -(SP) 

uios BIEN bod TR Pe SSUBRS a ee 
4175 O1eH10 104401 1205 Type =, $ : 

4176 16414 104401 O01 TYPE  ‘SCRLF 
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= 
8 
- 
8 


138: JSR PC, SUBCLR 
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MACY11 27(1006) 31-JAN-77 18:30 PAGE 79 SEQ 0079 
T15 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 

ERROR 24 : R SCLR 

RETURN TURN TO CYL O 

MOV 8SEEK,RKCSI(RS) ; 

MOV TSO, TEMP serve I “ireouT 

JSR PC, FROY 

ERROR 131 >NO Ror AFTER SEEK CMD 

MOV TEMP! TIMEOUT 

JSR pc, FaTte PEND ATTN 

ERROR 132 :NO arn METER SEEK CMD 

BIT RR, HCS1 ‘ 

BoE 

ERROR 210 ;CERR AFTER SEEK CMD 
64S: 
; - ERX HESRREAEERERRSEE LHS RRR E SKE RSE SERRE SHR KS SARE N LEHRER RARLELERE 
jATEST 16 WRITE LOCK TEST 
i PAPArehly aire * 
is ue BOUNDRIES WHEN DOING TING ON CYL 0, HEAD 0 
oe HPEEPRELLSRRSESLAPSSERRA RR LS EKEREALE REKLAMA ERE LARS EAK ERA LER ELLE RSE 
tST16: SCOPE 

MOV #1, STIMES ;:D0 1 ITERATION 

MOV astAack, SP hes one STACK PTR 

TST BSERR SEE IF ALIGN CART 

BEQ 15$ BR IF NO 

IMP 128 "ELSE EXIT TEST 
1S$: JSR PC, SUBCLR 

ERROR ;CERR AFTER SCLR 

TYPE  ,MSG24 sWRETE bck 

TYPE mSGS2 CONTE 0 EXIT OR SPACE TO CONTINUE 

ISR Pc CCSP INPUT CONT-E_OR SPACE 

JMP 128 * RETURN lle IF CONT-E 

JSR PC, GSTAT 

BIT 0-HRL, iSEE, IF i WRITE LOCK IS ON 
1S: T MSGS ir WRIT LOCK 

TYPE Megas i ate TR 

ISR Pc, GETSP 

ISR PC, GSTAT 

BIT 80° HRL, HR ;SEE IF WRITE LOCK IS OFF 

ERROR 110 ;WRITE LOCK NOT DISABLED 


ire pe OR er ice 3 ee C7 APRS) gts re a “77 18:30 PAGE 80 SEQ 0080 


4235 016622 005037 001365 2s: CLR TOCYL : SETUP 
OOS Te Doee ek eo ‘FILL HEADER TABLE 
ft ane Spiele CLR pERNAT ROUTINE 
016642 004737 027314 16S: JSR PC, FHDTAB ;BUILD STD 22 SECTOR HEADER TABLE 
O1664% O01 1554 00004 MOV eHDTAB RKBA(RS) 
O1bb54 7 7 000002 MOV . » RKWC (RS) 
16662 151 SWAB 
1 161 000006 MOV HEAD, RKDACRS) ;HEAD ADDR 
1 151 SWAB 
016700 012765 000027 000000 MOV &<WRHEAD> , RKCS1(RS) “WRITE HEADER CMD 
alerts re poi440 00S444 MOV ell Ago 
1 a 1 ZRhor Orn AFTER WRITE HEADER CMD 
016722 004737 025760 JSR PCGSTAT *GET FRESH STATUS 
Mee Baia 100000 O0S406 I aes 
1 104201 fe 8 ;CERR AFTER WRITE HEADER CMD 


016740 64S: 


aad rata 000003 HEAD, 43 ;SEE IF ALL HEADS DONE 
16S BR IF NO 
ersten ;CERR AFTER SCLR 


INC 
CMP 
BNE 
ZRROR 
005037 CLR SECTOR 
016766 013765 OO0l422 OOO00 14S: MOV SECTOR, RKDA(RS) 
GICs STEERS BRT; RSTRNT 0° 
MOV as ,»RKWC(RS) ;CYL 0, TRK 0, SECTOR O 
MOV 
ISR 
RROR 
SR 
IT 
BIT 
BEQ 
JSR 
BR 


TA> , RKCS1(RS) “WRITE DATA CMD 
TEMP sar Tine MEOUT 


150000, itor 
AFTER WRITE DATA CMD 
RESH STATUS 


SASS ARLGS SACs Son enema antonamansataaantasee 
5 
BE 
: 


Bi Foe2 ACERR, CSI a IF NO ERRORS 

017054 o0s422 #BSE, HER SEE IF pro SECTOR FLAG 

017062 001421 665 

017064 Son? 37 027752 P TRUERR Ese ot Ste IF SEC TOR LISTED IN BSE TABLE 
UE BRE ABE come BTR, SENSI hrs ou 

017104 001003 BNE 65S 

017106 104040 ERROR 40 i BBORTING TEST DETECTED 10 BAD SECTORS 


2 
5 
3 
8 


VE BIAaSTIC PART 3 
Pil 28-JAN-77 11:05 


021426 


die7ee 


565ees & 


Bodo! 





431 1 004 

Si, A EE 

4320 tee Bie7ee 001 000004 
asp es Ol bande Soon 
uy 1 1 

ea plrese Glare? tote Bole 
4326 Ol 1 

iS Hee REN fon a 
a] 1 ee 

4329 O0173le 104015 

4330 017314 004737 025760 

te Oe ey oo cous 
y 1 040000 005410 
ub 1 “rt 

4 1 000024 001502 
y 1 1 16 

4337 017350 000437 

4338 

i333 0173S2 104022 

meat tee 012737 010340 005476 
es Gigrs? 01720 possoe 
4 DIAM lerar 

4346 017406 012737 O00002 005510 


MACY11 ae? 31-JAN-77 18:30 PAGE 81 
T16 WRITE LOCK 


65S: 


66S: 


67$: 
68$: 


69S: 


JMP 


07 
SEO 

TEST _ 
12s /BYPASS TEST 


1 itaimachataa ; TRY ANOTHER SECTOR 


le ;CERR WITH WRITE DATA CMD 


Bch. .SPIN!D.  DROY 1D Y¥+2, ORE?» BPO i ;EXPECTED MSG AO 
nee -CART!D, 200830 p BRM De RPE? » E28 Bel, sore res Al 


ioe Tp Foe BOS BEE 


eae er oe 80 


: 6 fea BTR ALTE SATA cro 


pe Wy BALANCE OF TESTS 
47 ;BAD SECTOR NOT LISTED IN TABLE 


24 ;CERR AFTER SCLR 


;EXPECTED WORD FOR TRUERR TYPEOUT 


8<WRTCHK> , RKCS1( “WRITE CHECK CMD 
aE 

1s’ NO _RDY AFTER WRITE CHECK CMD 
PC, GSTAT ‘GET FRESH STATUS 

aCERR, HCS1 

BWCE , HCS2 ;SEE IF WRITE CHECK ERROR 
RebB(RS) , WL ACTUAL WORD FOR PRINTOUT 

16 tWCE AFTER WRITE CMD 

70S 

22 sCERR AFTER WRITE CHECK CMD 


_ #O!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 


E.B0 -E 
8<D. SPOK!D.CART!D. 


' ,BRHM!D.§ >,£.Al_ ;EXPECTED Al 
416-81 if FOR CTED' MSG BL’ 
#2,£.B2 :MSG ID FOR EXPECTED MSG B2 


- 


MOV #<D.WLE'D.FLT>,E. 


* AF 
054340 O0S47E SS: MOV #<D.DSC!D. SPIN!D:WRL!D.DRDY!D. VV!D. 
200 005500 BO 
720 005502 MOV a<D. SPOK! 10. CART'D. DOOR!D. BRHM!D.SSP>,E.Al 


RSS 
: 
: 
Z 


oooo = 


i CHECK Rees eect BO, al, Bl 
io CIFLED HE 
eo Faroe AFTER RITE WITH WRITE LOCK SET 


2B 


UNIBUS KG DRIVE DIAGNOSTIC PART 3 macy 11 27(1006) 31-JAN-77 18:30 PAGE Be SEQ oO8e 
DZR6JD.P11  2B-JAN-77 11:05 T16 WRITE LOCK TEST 
ao 017414 012737 000003 005514 MOV #3,£.83 ;MSG ID FOR EXPECTED MSG B3 
4 174 025144 ISR PC, CHKMSG ;CHECK MSGS AO, BO 
wed 174 eas . WORD Rett. B2!0 a Hel ett 
4351 017430 104057 ERROR AFTER i teD Core CMD 
4352 0174 14031 ERROR 37 
4353 gi” i ERROR 60 nee ep 
4 pte Id 043674 rR Be MSG7e Pe ps BALANCE OF TESTS 
4358 017444 137 023416 IMP ENORV 
4358 017450 70S: 
4 026332 3$ PC, SUBCLR 
ie) Biden Bdas4 dReor bd .CERR AFTER SCLR 
4363 017456 104401 O420S0 TYPE »MSGSM ; ENABLE WRITE age 
4368 Bt ieE Apa73s neers JSR peogE TSP CET Space 
4367 0174 o0000 00000 MOV aCCLR RKCS1(RS) 
4368 Ot 08 pie7es resus JSR GstaT 
4368 017504 036737 004000 005434 BIT 9D RRL HARE ;SEE IF WRITE LOCK IS ON 
4371 piers 104115 ERROR 115 WRITE LOCK NOT ENABLED 
4372 017516 000754 BR 
4374 01 4g: MOV TA (RS) ;ATTEMPT TO WRITE ALL 1’S WITH WRITE LOCK SET 
SiS eee hse: 
4 1 i i MOV 256. ,RKWC(RS) ; CYLINDER 0, HEAD 0 
4377 017542 013765 O01422 000006 MOV SECTOR; RKDA(RS) 
8 pi eee 015737 ool aay NOY T TAR Sy” TUP TIMEOUT 
30a bt5eE8 poi JSR ¥ + PEND RO 
4381 017570 104116 ERROR 116 : CONTR ROOT RDY 
4383 017572 004737 025760 JSR PC, GSTAT GET FRESH STATUS 
4384 SET 032737 100000 oOS406 BIT #CERR,HCS1 
4385 017604 001001 BNE 17§ 
4 017605 04207 ERROR 207 ;CERR NOT SET BETER WRITE WITH WRL SET 
4 1761 neta OO4O00 O0S436 178: BIT #0. WLE, HMR3 * CHECK WRITE L K ERROR SET 
43898 17616 001001 BNE 5g ; 
4389 01 04121 ERROR 121 * WRI PECK ERROR NOT SET 
4390 WRITE DATA WITH WRITE LOCK SET 
4391 Ol DRA>,£.AO ;EXP AO 
01 
01 
1 
1 
01 
1 
ot 
1 


FECERR FeGR & 
5: 
: 
45 
Z 


0 
i 

126 st 0 
127 ‘MSG BL ERROR 


2222 
VERS 
merry 
E 
S 


GO? 


UNIBUS RK& DRIVE DI TIC PART 3 MACY11 27(1006) 31-JAN-77 18:30 PAGE 83 SEQ 008 
Pll EOS Lisos T16 WRITE LOCK TEST - 
004737 026332 ISR PC, SUBCLR 
104024 ERROR 24 ;CERR AFTER SCLR 
012765 001524 O00004 BDATAO, RKBA(RS) ;CHECK THAT NONE OF ORIG DATA 
BIS #BA rKcSe (RS) : 
1 i 8-256. ( SULT OF WRITE WITH WRITE LOCK SET 
1 1 1 MOV .t CTED WORD FOR TRUERR TYPEOUT 
013765 OOl42e 000006 SECTOR,RKDACRS) ” 
012765 000031 o00000 MOV 8<WRTCHK>  RKCS1(RS) “WRITE CHECK CMD 
013737 go1440 o0S444 MOV TS0000, TEMP i SETUP agineout 
se " ERR on : NO ROY A AFTER WRITE CHECK CMD 
025760 ISR PC, GSTAT GET FRESH STATUS 
1 005406 BIT #CERR,HCS1 
001450 BEQ 
040000 005410 B I sHCE , HCS2 ;SEE IF WRITE CHECK ERROR 
1 000024 001502 MOV RiBB (RS), WOI ACTUAL WORD FOR PRINTOUT 
104016 ERROR 16 WCE AFTER WRITE CMD 
000437 BR 2s 
104022 71$: ERROR 22 ;CERR AFTER WRITE CHECK CMD 
01 MOV #<0!D.SPIN!D. ORDY!D. vv! 2D. WVtD, DRAD EA; EXPECTED MSG AO 
CLR E.B0 
1 MOV aD. SPOK!D. cnn 0b nett BRHM!D.SSP>,£.Al ;EXPECTED Al 
blera? HOV -Bl FOR CTED'’MSG B1" 


fii al 


q ag 


REE eB EXPECTED MSC 8 





4435 004 JSR PC, CHKMSG ;CHECK MSGS AO, BO, Al Bl 
yu . TOAST T Bot0 
44 t ERROR? MSG AO Ghat RFER a 
woe t : ERROR eh ee BY ERROR 
;fioe 
aad {DNoae ERROR 8¢ iNee BI ERROR 
yay | 104401 74 TYPE MSG7e2 ‘ABORTING BALANCE OF TESTS 
pa 000137 023416 JMP ENDRV 
UUM 723: 
Hos . 
4446 020112 004737 026332 6S: JSR PC, SUBCLR 
4447 O20116 104024 ERROR 24 ;CERR AFTER SCLR 
qua 020120 104401 041757 TYPE MSGS3 ;DISABLE WRITE LOCK 
4450 020124 oot 040502 TYPE  'MSG37 :SPACE BAR WHEN DONE 
920130 JSR Bc, GETSP :GET SPACE 
1 JSR PC) GSTAT 
020140 005434 BIT #0! WRL, HMR2 ;SEE IF WRITE LOCK OFF 
wey 02014 001361 BNE 6$ 
i TEST FOR WRITE LOCK AT SECTOR BOUNDRIES 
4456 CONTINUOUS WRITING ON CYL 0, TRACK 0,1,2 
4457 020150 souuo 042050 TYPE MSGSH cet WRITE LOCK 
4458 020154 013737 001436 001160 MOV t5000, STMPO 


| 
' 


4ag6gsdsi044 OF 


££ 


Pe eras Deo eae anna RR ER SB SRA SERER IS IAS IAS 


SiS 
Wr 


HO? 


RK& DRIVE DIAGNOSTIC PART 3 MACY LL 27(1006) 31-JAN-77 18:30 PAGE 84 SEQ 0084 
29 ll: T16 WRITE LOCK TEST 
CLR STMP1 ;BITO=0:WRITE O'S; BITO=1;WRITE 1°S 
CLR TOCYL 
7S: JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
001162 BIT #BITO, STMP1 
BNE ;BR_IF WRITING 1’S 
000004 HOV BOATAO, RKBACRS) :SETUP ALL 0°S 
8S: MOV TA (RS) ;SETUP ALL 1’S 
Bopold 8; BTS WBAT RKCSE CRED 
oo0002 MOV ret #e5b., CRRUC(RS) “WRITE TRACK 0.1.2 63 SECTORS 
CLR ;BEGIN AT TRACK AND SEC O 
MOV TOCYL , RKDC(RS) 
MOV SWROATA, RKCS1(RS) 
444 MOV TS0000, tE 
JSR PC, FROY ;FIND CONTR RDY 
ERROR 11 ‘CONTR NOT ROY 
00S406 BIT #CERR,HCS1 
BNE 13 
Pe. STMPO 
is ;CERR_NOT SET BY TIMEOUT 
TYPE » MaeSs ar TREND DONE 
JSR pest cp iT a 
IMP 10$ EXIT TEST 
aelh « ae :Q0 WRITE OPPOSITE DATA 
oos422 13S: a ,HER : SEE tH bob gee 
BEQ 21$ ;BR if NO 
NC TOCyL TRY R CYL 
000012 MP TOCYL, #10. ‘SEE IF 10 CONSEC CYL BAD 
ERROR be iG dap consee CYLINDERS 
MP PS A tes 
OOSH36 218: BIT #D.WLE,HMR3 i 
i ;NO WRL BY TIMEOUT ‘Mi. 
118: TYPE  ,MSGS3 ;DISABLE WRITE LOCK 
TYPE Gp ‘TYPE SPACE WHEN DONE 
JSR Pc 
001164 MOV HDA, STMP2 ;STORE RKDA OF ERROR 
001166 MOV HDA; STMP3 STORE FOR ERROR TYPEOUT 
000001 cre sTHPe, ,#l SEE IF WRL ON TRK 0, SEC 1 
TYPE MSG100 L ON TRK 2, SEC 21 
BR 6s if Fa oe RL OCcuRRED TOOK PrAcE 
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MACY11 27(1006) 
T16 EL 


228: 
238: 
24s: 
ess: 
18S: 


19S: 


WRIT 


10? 


31-JAN-77 18:30 PAGE 8S 
OCK 


TEST 


sTupe SEE IF WAL ON TRK 0, SEC 0 
e100 
bs iGLRE MEL BY TPK Be $85 .°R. ace 
STHP2, #1025 ;SEE IF WRL ON TRK 2, SEC 21 
100 : ON TRK 2, SEC 19 
bs :& NO NEW DATA XFER TOOK PLACE 
TwP2, #1024 SEE IF WRL ON TRK 2, SEC 20 
MSG100 L 
bs if 8B orb hart TO “MHeEK ABa Inst 
STHPe, #400 SEE IF WRL AT TRK 1, SEC O 
es (RS) 1 
RKDACRS iD lees ai ek to en SEC 2 
swe, #1000 ;SEE IF WRL AT TRK 2, SEC 0 
He , RKDA(RS) ir JF seeror AT WRL IS TRK 1, SEC 21 
STMP2 ;GET SECTOR AT WRL 
STMP2, RKDA(RS) 
RKDA(RS),STMP3 ;FOR ERROR PRINTOUT 
PC, SUBCLR 
24 ;CERR AFTER SCLR 
STMP2 SEE IF TRK/SECTOR 0 Seer taal 
o.s1ces | REETTE MR, MSMCDRT RATER 
:REPEAT,NO OLD DATA TO CHECK AGAINST 
88170, STMPL 
738 >BR IF WRITING 1°S WHEN WLE OCCURRED 
WRITING O'ScHLe SECTOR SHOULD HAVE ALL 1’S 


oer : 


say Rk 
at 
sre: fKOACS) 


TOCYL, Sa 


&<WRTCHK> , RKCS1(RS) 
Ts0000, 


TEMP 


;WRITING 1’S:WLE SECTOR SHOULD HAVE ALL 0’S 


;REFRESH RKDA 
;EXPECTED WORD FOR TRUERR TYPEOUT 


“WRITE CHECK CMD 
SETUP TIMEOUT 


SEQ 008s 


a 
~ 


ai 
— 


SATA de eee 


5 
v;) 


Ra RRtREs ese AES 
BRR 
ai 


seccnnnnensgqanant & 


vw 
— 
ee 


S Bava? 


T 


aloe 
pa he he 
8 


RERRRRR 
NER 


Sn GGE Gocin 1 GHEE TENG 


RolsNaeee 


ek od Bo Pat Dee fee bee Boa bbe fea he pe 


NEEH GSSHBRED SRR 


be Ppt be ee pe ee Ben Ba ee ens teen ba fe be es ee tee Pa at Be Pes Pe me tee 


Tw 
~~ 
o 


SS 


Ba 
id 
3 


o 

onl 

%§ 
ma 

< - 
4 

Ww 


3 
8 


ie 


— 


a em 


Ss 





hee 2701 


81S: 


7S$: 


WRIT 


So8 Fone Sas SS 


seeae 2a 


B Spa 


e's 


Se pamesme 
° 


Sires proaces) | 


88ITO, STH 


genre, »RKBACRS) ; 
URS | 


eee 


) 31-JAN-77 18:30 PAGE 86 
LOCK TEST 


;FIND ROY 


iO ROY. OF TER WRITE CHECK CMD 


;SEE IF WRITE CHECK ERROR 


ee il 


;CERR AFTER WRITE CHECK CMD 


1D. SPIN!D. ORDY!D. ED.WED.DRAD, .AQ EXPECTED MSG AD 
1D. cantsi poo DOOR!D. BRHM!D.SSP>,£.Al 


;EXPECTED Al 
CTED'MSG B1 


CTED MSG Be 
;MSS ID FOR EXPECTED MSG B3 


sCHECK WE Macs SPtciP teD HERE 


AO ERROR AFTER WRITE CHECK CMD 


rat & Boe 
eH ne eat ance OF TESTS 


i DeCeh 


;SEE IF WRL AT TRK 1, SECTOR O 


ELSE SECTOR BEFORE WRL IS TRK 0, SEC 21 


pot a Ot TRE C,SECTER © 
sR i SECTOR BEFORE WRL IS TRK 1, SEC el 


;GET SECTOR BEFORE WRL 
;FOR ERROR PRINTOUT 


FR ting aa aeCTOn HE MOULD HAVE ALL 0’S 
WRITING 1'S:WLE SECTOR -1 SHOULD HAVE ALL 1°S 


;EXPECTED WORD FOR TRUERR TYPEOUT 


SEQ 0086 


2 


SELLER LELCECENGEGERSEE CSA Cececceccancecétt F 


ra 
~ 


ReESSSSSSS 


RK& DRIVE DIAGNOSTIC PART 3 
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s 1873? Ooo boss 
i Oet42e 
276 


043674 
Gel¥2e 000137 023416 


012737 000001 001174 
021436 012706 001100 


ise oR 
ie BSB Ee 





MACY11 27(1006) 31-JAN-77 18:30 PAGE 87 
T16 WRITE LOCK TEST 
MOV 1soh06 aR BKCSI WRITE CHECK CMD 
MOV Ser _aireout 
ERROR shoes : Y AFTER WRITE CHECK CMD 
ISR GSTAT :GET FRESH STATUS 
BIT ac ,HCS1 
By BHCE , HCS2 ;SEE IF WRITE CHECK ERROR 
MOV (RS),WOl =; ACT FOR PRINTOUT 
ERROR ee AGE CARTER URINE eno 
ERROR 22 ;CERR AFTER WRITE CHECK CMD 
HOV #<0!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AC 
nov SB SPOK!D. cn £0 SSP>. ,E.Al_ ;EXPECTED Al 
MOV i Az Bi dF MSG B1 
2 is eiideee 
MOV $3°E 83 ise B FOR RTED nee 
JSR PC, CHKMSG ; CHECK MSGS AQ, 80, ofits Bt 
.WORD T.A2!T.B2!0 HERE 
Frege af S F ie ae aee iEtep CHECK CMD 
ERROR 32 ins 
TYPE NSG72 : ABORTING BaL BALANCE OF TESTS 
IMP ENDRV 
84S: 
12S: 
$ eae ae oie Seeeeniee meee Bee een 
j ATE AC LOW DETECTION PART 2 
it THIS TEST VERIFIES THAT WHEN AC POWE LOST, THAT WRITING CEASES 


: TheRE 1S abenoK 4 PS BETHGEN fC‘ LOW Ao RST ds Nees in 


° "at - aeguemceataaanaie ta memati ammamamaaiaia <ante/ ratte 


+éT17: SCOPE 
MOV #1, STIMES ;:D0 1 ITERATION 
MOV asStAck, SP ‘RESTORE STK PTR 
J PC, SUBCLR 
ERROR 24 sCERR AFTER SCLR 
T 
TYPE 


Heese Coat 0 bvbass TEST 


OR SPACE TO CONINUE 


SEQ 0087 


SEES ELE CEL ESC SELL 


RRRAR ARAN 


‘a 
i 
- 
£ 


Pee fee De hee fet ae ee re bee be be bs pee 


RRERBRERB BRBRE 
NaRSENSSR Be 


000027 
Oeide 


00s4 


2 


15 it wey iy 31-JAN-77 18:30 PAGE 88 SEQ 0088 
LOW DETECTION PART 2 


118: 


13S: 


64S: 


16S: 


SR 
IMP 


TST 
" 


we 
4 


gesugul’ Q2g28 u Goce age 


rt: anal tRETURN HERE FOR CONTE 


i: Be Fat are canoe 


ay TAT 
.WRL, HMR2 ; SEE fF WRITE LOCK 
;BR IF NO 


118 
’ ; WRITE LOCK 

Nees? i PaPce- Space HEN DONE 

PC, GETSP GET SPACE 

PC, GSTAT 

00; HAL, HR ;SEE IF STILL WRITE ‘LOCK 

1 i TE NOT DISABLED 

138 io 5 Te rESt 

er. y se 

HE Foe HEADER TABLE 

FORMAT ROUTINE 

PC, FHOTAB ;BUILD STD 22 SECTOR HEADER TABLE 
SHDTAB, RKBA(RS) 

#66. , RKWC (RS) 


rem, »RKDACRS) ;HEAD ADDR 


#<WRHEAD> , RKCS1(RS) :WRITE HEADER CMD 

,TenPL Tup TIMEOUT 
"NO RDY AFTER WRITE HEADER CMD 

TAT :GET FRESH STATUS 

: ,HCS1 

201 CERR AFTER WRITE HEADER CMD 

HEAD 

HEAD, #3 ;SEE IF ALL HEADS DONE 

3$ ;BR IF NO 

OCYL 

PC, SUBCLR 

24 CERR AFTER SCLR 


ee fae jERVE' IN That “Baek oF 1's 


TRACK 0,1,2 ALL SECTORS 
TOCYL 





2 
Bs 
% 
Ba 


—— 


Anes 
gE ia 


99959558555 ¢ 


SPREE PES 


<= 


07 


PART 3 pagvis 27( 1006) AN-77 18:30 PAGE 89 SEQ 0089 
117 TION Part 2 


AC LOW DE 
Bos 
O0S406 


= 
4 


SROATA,RKCSL(RS) __:HRITE DATA CHD 
PC, FRDY iP 

A esa, 1g PO TER WRITE DATA CHO : 
SER, 





ie , 
: 
I HER -SEE IF BAD SECTOR 
14 Be - : 
022016 012737 010340 005476 MOV #020. .SPIN!D.DRDY!0.VV!D.DRA>,E.AO ;EXPECTED MSG AO 
1 o0sso2 Gh 8D, sPoRtD. cans, TB ac -SSP>,E.Al_ ;EXPECTED Al 
1 005504 Hoy Hi é-81 I Fi CTED'’MSG 81° 
1 005510 MOV #2,£.B2 ie ID FOR EXPECTED MSG B2 
012737 000003 005514 MOV #3,£.83 :MSG ID FOR TED MSG 83 
025144 JSR PC, CHKMSG *CHECK MSGS AO, BO, Al, Bl 
-WORD T.Ae!T.B2!0 ‘ =& MSGS SPECIFIED HERE 
1O4Ose Eras 5 MSG AD Free AFTER WRITE DATA CMD 
| et be . 
10S: he at ERROR 
02? 1 : 1 
55 18 Abate 023416 FRBOR #3 : 
0122106 005237 001366 178: INC TOCYL 
02? 1 001366 000012 TOCYL, #10. j TRIED 10 CYLINDERS? 
De? I 1 ;BR 
NePiee 1 62 *CANNOT WRITE ON 10 CONSEC CYL 
22124 000137 o23416 IMP 12s 
022130 000137 021712 18S:  JMP 16$ 
022134 026332 2s: JSR PC, SUBCLR 
Dee14O 1 ERROR 24’ ;CERR AFTER SCLR 
022142 104401 041430 TYPE  ,MSGY9 ; TURN OFF AC 
022146 104401 42423 TYPE | MSGS? ‘VERIFY BATTERY RETRACT FUNCTIONAL 
g221se 005737 001542 TST BSERR ;SEE IF ALIGN CART USED 
Nee 168 o4oso2 i Bae ds SBace WHEN DONE 
Nee | 030346 JSR PC, GETSP *GET 
022170 000526 BR 8 :SKIP ALL WRITING 
1 001160 15S: MOV T STMPO 
RSS475 ae CLR SFR T ;BITO=0;WRITE 0°'S; BITO=1:WRITE 1’S 
g22204 004737 026332 4§: - JSR PC, SUBCLR 
10 104024 ERROR 24 ;CERR AFTER SCLR 
ge2218 000001 001162 BIT #8170, STMPL 
1004 BNE S$ ;BR IF WRITING 1°S 
Oeeeee 1e76s 001524 900004 HOV HOATAO, RKBACRS) “SETUP ALL 0’S 





# 


SSsssS SSSR GRASS ATI IIA é 
——T—4 a 
NOU SWE 


Rese 


— 


PEERS EE Road Leideestcasuiaal ons 


a 


= 
: 
. 
S 
beeen 
= 


a 
we tt) 





—p 


85 
q 


Be 


a2 
Ss 


— 
a8 
ae 


wx 


ies 


oe 
E 
A 


He 


38 
Eth 
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31-JAN-77 18:30 PAGE 90 SEQ 0090 
DETECTION PART 2 
cts te ;SETUP ALL 1’S 
pa ee “TRACK 0,1,2 63 SECTORS 
RKDAC BEGIN AT TRK AND SECTOR O 
TOCYL 
if Firs) 
TEMP1 
PC, FIND CONTR ROY 
il CONTR NOT ROY 
PC, GSTAT 
- @CERR,HC 
146 ;CERR NOT SET By TIMEOUT 
,MSGSO Tore AC BACK 
nSGE9 OOFTER *READY’ LIGHT ON 
Pc. GETSP 
12 ett TEST 
tl GO WRITE OPPOSITE DATA 
#0. ACLO, HMR3 
10$ 
147 sAC LOW NOT SET 


a VALID HALT 
DSC!D.PIP!D. ico VV!D.DRA>,E.AO ;EXPECTED MSG AD 


8D; ORB! -REV#O. CART 7X RapaGpaapye 


toe oe aye a OFF FROM HEADS LOADED 
J fa nt Bea 

HOA’ STHPS SVE FOR TYPEOUT 

,NSGSO ; TURN AC BACK Sra 

WSS. {DEPRESS SPACE OAFTER "READY" LIGHT ON 

PC, SUBCLR 

24 ;CERR AFTER SCLR 

#0. ACLO, HHS 

ise ;ACLO NOT RESET AFTER POWER UP 


At ORI VE DIAGNOSTIC PART 3 yt oA tect ton wae PAGE 91 SEQ 0091 







4851 9S: CLR FOR VALID HALT 
ages NOV sect, Re G3et Re) ; DRIVE. 
MOV BPACK'RKCSI(RS) ;PACK cro 
Men Tio,errt FIND CONTR RDY 
= ERROR 116 CONTR NOT RDY 
ue IT #0,.WV, HMR 
4861 ia ERROR 27 ;VOLUME VALID NOT SET AFTER PACK CMD 
Pra] = a BSERR ;SEE IF ALIGN CART USED 
4864 BEQ 14§ ‘BR IF 
4865 IMP 128 ELSE EXIT TEST 
4865 
4867 14S: 
4868 
4863 JSR PC, SUBCLR 
4870 ERROR 24 CERR AFTER SCLR 
TST TMP2 F TRK/SEC 
te Q 28 {REPEAT No el iprae XFER TOOK PLACE 
001023 CMP STMP2, #1023 SEE IF’ nek 2, SECTOR 1 
487s BEG 735 REPEAT ,NO OLD DATA 1h’ CHECK AGAINST 
001162 TO, STMP1 
ug?” BNE 665 IF WRITING 1°S WHEN WLE OCCURRED 
000004 MOV 8OATA1,RKBA(RS) ; tURITING O'S:WLE SECTOR SHOULD HAVE ALL 1°S 
4879 BR 67S 
4890 
4831 738: IMP 2s 
ioe 000004 66S: MOV 8DATAO, RKBA(RS) ;WRITING 1’S:WLE SECTOR SHOULD HAVE ALL 0’S 
4eg4 000010 678: IS #BAI. RKCS2 (RS) 
4838S oooo02 MOV 8-256. , RKWC(RS) 
4896 000006 MOV STMP3,RKDA(RS) ;REFRESH RKDA 
4887 601504 MOV tRS) *EXPECTED WORD FOR TRUERR TYPEOUT 
4828 MOV OCYL, RKDC(RS) 
Weed oo0000 MOV 8<WRTCHK> . RKCS1 ( “WRITE CHECK CMD 
483] 005444 MOV T TEMP rer TINE At 
4e33 Joh, ELFROF ie POT pETER RITE CHECK CMD 
5 FRROR GSTA T FRESH 
4895 00S406 BIT #CERR,HCS1 
sey? 005410 ert sige Hose ;SEE IF WRITE CHECK ERROR 
001502 MOV RKDB(RS),WO1 § ;ACTUAL WORD FOR PRINTOUT 
4500 ERROR 136 : CE -AFTER WRI rd 
4301 BR 75$ 
13H 74$: ERROR 22 ;CERR AFTER WRITE CHECK CMD 
023002 012737 010340 005476 MOV #<0!0.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AO 
4906 023010 005037 005500 CLR E.B0 sEXPECTED MSG’ BO 


COS 
31-JAN-77 18:30 PAGE 92 


SEQ 0092 


- oy ey d Z 
= 1.2) oO y 
a ° a Oe g g 
" x ee $3 : 3 
& ws Ok ok S © 
“= Gib 5 * 7 - £ 
¥ men oh: Bees a Tv gs x * 3 
oH & Yeig , ws bes ge 5 
as BS & & a” - > fs ws “xf Fa 
ye Oy || U BB geet Fos FB, BEB 
Eas age : oH. 8 § é gt 3 g Hs ee te 
Ban =EeEE & & 3 = cw ro = = rod 
Sgee gebnob, G5 G5 & ‘oi. ees § 5 F 
E2582 ~ Sea wt wed FE UZ g 8 wr sme ® 
: § ¢o0 & e Bpeup g fs 
oe gead ged BE 5,3 
Siem os, og EGe fice wet bp Ee oe 
3 ogni Sy ~in® aX Fern & Wenn on 
E oltag einnonte «© Egastede EBS Setke Sicacletnr 
3 
2 ERDGE SSEEEETE 25 BUBaBUEa REGLUER BUEEE EaREmEGEEs E 


MACY11 27(1006) 


95 
70$ 
718: 
72e$ 
76$ 


001164 001000 685 
000006 
1166 
1162 
000004 
001 000004 
a 
1S04 
1 000020 
005444 
00S406 


T17 
758: 


boseo 
oossi4 
001164 000400 


: 
: Sees tHe eerie 
SS Gees — ne ee Se — 
a ea GES Ssassass asausas GSAS & 
25 0 OEE ETE TTT 


025144 
043674 
023416 


16 000437 
104022 


a’ 
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Ue 3.3 


2 
5 
3 


v 





BoSE EE icceP Re REEVES CTL Ut LE CU SERPS PRERR ode, é 


SSsssssss 
ee ees 
ONOUW £WMY-O 
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00S476 


oossoe 
00SS04 


005510 
005514 


08 


+ ie oS Sey 31-JAN-77 18:30 PAGE 93 
LOW DETECTION PART 2 


aoe. SPIN!D.DROY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 


3 


CLR 
nov . SPOK!D. cart Bb poBke Be .SSP>, EA a EXPECTED Al 
HOV H E.B1 FOR CTED’ MSG 
Gh #2,€.B2 : CTED MSG B2 
MOV #3,£.83 “MSG ID FOR EXPECTED MSG 83 
JSR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
.WORD T.A2!T.B2!0 °& MSGS SPECIFIED HERE 
Fira 37 iNSG 80 Freae AFTER WRITE CHECK CMD 
1 ; 
ERROR 60 MSG Al 
Tre atisa7e nee Oe BALANCE OF TESTS 
775: 3 
12$: 
ENORV: 
; a i Eek AF Pa, ee ee eee 
i 
is ay 1§ NOT 8 Re ty a: baivebalSeR Om ALL THE 
ii ive een 'Te P Keven: ONLY AFTER ALL DRIVES PRESENT 
is DO NO aN IS ’TEST’. 
i RE IE ee a fa | 
7 #1, STIMES ; ITERATION 
MOV eStack, SP ‘RESTORE STK PTR 
I T I THAT ARE CHECKED 
es BRS, soever HARE ALL OR DRIVES PRESENT ATTESTED 
NooRY i460 NOT, "ED pares. & TES SNEXT DRIVE PRESENT. 
$ itest 3] MULTIPLE DRIVE DETECTION TEsT 
; ATE MULTIPLE DRIVE DETECTION TEST 


THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PASS 1 
AND IS BYPASSED IF ONLY ONE DRIVE IS PRESENT. 


THE MULTIPLE DRIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD: 
.: THE OPERATOR. 18 They ETED 10 PONSERT THE ROME THE. SANE UNIT SELECT 
; PL IS eAte ata IME) ON ANY 2 DRIVES 


: 
C. THE ae TOR THEN DEPRESSES THE SPACE BAR TO CONTINUE THE TEST 


C22 2 8 Oe eS 8 8 8 8 


B 


: 


8 
— 
wo 


Rolistavishisis 


-_ 


SINISE CRN TER COR UMNO RUSS Rares caw eRe 


08 


& DRIVE DIAGNOSTIC PART 3 MACY11 27( 1006) 31-JAN-77 18:30 PAGE 94 SEQ 0094 
1 2B-JAN-77 11:05 T21 MULTIPLE DRIVE DETECTION TEST 
i OR A CONT-E TO EXIT THE TEST 
1 THE PROGRAM VERIFIES THAT MULTIPLE DRIVE SELECT & DRIVE UNSAFE 
i BOTH SET & THAT THE DRIVE UNLOADS 
is THE OPERATOR IS ASKED TO VERIFY THAT HEADS UNLOAD FROM BOTH DRIVES 
ee HELEARKELERRAREUE EAA LEEEKRKRELA EL ESL RRE KRHA HARES ESHER ER EL EERE 
023452 000004 tST21: SCOPE 
023454 012737 000001 001174 MOV #1, STIMES D0 1 ITERATION 
Oe3462 012706 001100 MOV asStack, SP RESTORE STACK PTR 
SesiG 005737 001216 TST SPASS oon wat i ae Dea 
oes redid 023730 ae 11 ‘Poe Bx} test 
023500 : 00SS26 000001 1S: CMP DRIVS, #1 ; mn ton ne 
eat 104401 043034 eee MSGb2 i MpAGS TE E ONLY 1 ARE VE BRECENT 
023514 000137 023730 IMP Lis “ELSE EXIT TEST 
23520 104401 037677 2s: TYPE  ,MSG28 ;MULT DRV DETECTION TEST 
023524 104401 041656 TYPE MSGS2 PRESS CONT-E TO EXIT OR SPACE TO CONTINUE 
02 35.30 Gon 37 JSR Pc CCSP j INPUT CONT-E OR SPACE 
023 1 JMP é ;RETURN HERE FOR CONT-E . 
023540 104401 042471 TYPE MSGS ;LOAD HEADS ON ALL DRIVES 
Gest TYPE MSG37 ;PRES WHEN SONE 
JSR Pc, GETSP * GE £ 
023554 004737 026332 3S: ISR PC, SUBCLR 
023560 104024 ERROR 24 sCERR AFTER SCLR 
023562 104401 oO42553 TYPE _,MSGS9 s INSERT SAME UNIT SEL PLUG # IN 2 DRIVES 
023565 104401 040502 TYPE MSG37 i DEPRESS SPACE BAR WHEN DONE 
023572 004737 030346 JSR Pc, GETSP GET SPACE 
023576 005000 CLR RO ;DRIVE # COUNTER 
SSaeme oiooee peooiy CO es: RO,ARCSECRS) DRIVE # 
i Gleres rt MOV Res (RS! ELECT DRIVE CMD TO GET STATUS 
12737 141520 OOS444 MOV #SO000. ; TE 
023626 004737 O2Sil2 ISR PC, OLY ;REQ 2 MS DELAY BEFORE MDS DETECTED 
023632 032765 001000 000010 BIT AHDS, RKCS2(RS) -SEE IF yutet DRIVE HAS MDS 
Gee Oose0s INC R "ELSE TRY ANOTHER DRIVE 
000010 CMP RO, #8. SEE IF ALL DRIVES TESTED 
001353 BNE 3 BR I NO 
1041 ERROR 176 ‘CANNOT FIND MOS 
il BR 10$ TRY AGAIN 
023656 104401 042766 7S: TYPE MSG61 ;MULT DRIVES FOUND ON DRIVE # 
023662 O1004% MOV RO, -(SP) SAVE RO FOR TYPEOUT 
;; TYPE UNIT NO 


£08 


UNIBUS KE DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) 31-JAN 18:30 PAGE 95 SEQ 0095 
DZR6JD.P11 28-JAN-77 11:05 Tel MULTIPLE DRIVE OETECT TON TEST 

S075 023664 104403 TYPOS G0 T =OCTAL ASCII 

5076 023666 001 -BYTE i type Te DIGIT(S) am 

2078 rete LOM Ouse Tree NSGbB HeRIFY gees Ea RIVES UNLOADED 

Shed Gsstod | toeaoL 10s: VBE OND ; INSERT T UNIT SEL PLUG & LOAD HEADS 

epg rats Aoa79 Baatae JSR af =ERSp HYpeut Contoe_ On Space” 

Be re Bay Ben a it ETL SESE Fon SOLAS SBA 

5086 023730 Boso3? Spe370 11S: CLR UNLD 

ope aS3o4 0 roaae4 — ERROR amt ;CERR AFTER SCLR 





# 


coseecoaees 


oO 
— 


UU UU UI OUT CIO UT UU UU UI Ur Un Ur 
SSRSTE SASS ee ee mee SS STAI 
TEE Mth Sted. Metab at it et ttetaw ttt oti pet at 


~R 
—-o 


DRIVE DIAGNOSTIC PART 3 MACY11 27(1006)_ 31-JAN-77 18:30 PAGE %6 SEG O09& 
28-JAN-77 11:05 END OF PASS ROUTINE 


-SBTTL END OF PASS ROUTINE 





; PENCRONENT THE PASS NOPE CSP RRM ASME SERRE REESE 
; INC T THE PASS NUMBE 
pass @XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER? 
STE A MONITOR GO TO IT 
:#IF THERE ISN’T JUMP TO STS 
ferns rh 
eae 001102 are STSTNM ZERO THE TEST NUMBER 
023750 005037 001178 CLR STIMES i § ZERO THE NUMBER OF ITERATIONS 
eee pass PoABaB 001216 Ate +788800, SPASS tha BT ow Ne 2 = NUMBER UNEER 
023766 005327 DEC (PC)+ : :LOOP? 
900001 SEOPCT: ,HORD 
8G : YES 
012737 MOV (PC)+,a(PC)+ § ?:RESTORE COUNTER 
023776 000001 SENDCT: _HORD 1 
Geo 1661 PEpES SENDMG ;;TYPE “END PASS 
Devoe O13746 OO1e16 HOV $PASS, -(SP) :iSAVE Se SPASS FOR TYPE pues. 
Bois §«teNee? o4O4H TYPE SENULL ti ee ae a 
024020 013700 oo0042 SGETY2: MOV de42, RO tt oey MONI TOR ADDRESS 
Oe40e4 001405 BEQ SDOAGN BRANCH IF NO MONITOR 
RESET CLEAR THE WORLD 
1 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
panes D240 NOP ;;SAVE ROOM 
NOP ;;FOR 
024036 NOP ;;ACTLI1 
O24040 : 
ata IMP (PC)+ ; ;RETURN 
. WORD 1S 
O24O44 BYTE s NULL CHARACTER STRING 
024047 ASCIZ 18) ¢ 12> “END past’ s 
024054 
024062 





BROYD.PLL  BB-TANSY? IL: 


5128 

$129 

51 

a 

133 024064 012700 005516 
S134 Ge4070 012701 177757 
ale 024074 005020 

1? 1 1 

1 1 7 

$139 

5140 

S141 

S142 

44 104 001360 
HS ain pee 

S146 Oelle 005237 001360 
ye 024116 104401 035570 
cis aie 00S737 o00042 
212 54156 Tease 001230 000001 
SiS2 024136 001406 

tt pee ; 001140 000176 
51SS Oe41S0 104406 

5156 OGe41Se 000403 

eiz asat?s 112737 000001 001134 
8 RIS coor 

160 

12 

fe 

5164 

Sie 024164 104411 

Be ERG HLH rem 
5169 24174 112002 

fn ae Give ieee 
HA cowie cone 

ie ee Be 

5177 Oe4ee0 005204 

is ee fa 
ciel Oe4e3e 001022 

5182 Oe4e34 127 177770 
5183 Oe4e40 001426 
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TINE 


-SBTTL SUBROUTINES 
; SUBROUTINE TO CLEAR ALL FLAGS FROM DDUMP THRU DOTIM 


CLRFLG: MOV 
MOV #-17.,R1 
1S: CLR (RO)+ 
R 
1 
RTS PC 


‘TYPE PROGRAN ID IF FTITLE=0 


TITLE: TST FTITLE 
BNE 
INC FTITLE . 
.SBTT T ue SOF TWARE sty itn REG TER 
_ er _ ase i 7BRE We RUNNIN ING UNDER XXDP/ACT? 
area Sen, #1 tt ARE WE ATC UNDER APT? 
BEQ 64S j 5 BRANCH IF YE 
CHP SHR, #SWREG 33 SW 30H REG SELECTED? 
GTSUR a CET SOFT-SWR SETTINGS 
bus: MOVB = #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
th RTS PC 
iR TINE TO INPUT DRIVE NOS. TYPED IN 8 SET 
oY gE OR IVOSDRIV? REGISTERS APPROPRIATELY 
GDRVS: N 
ca (SP)+, RO GET STARTING ADDR OF ASCII STRING 
v 8-8. RI *SET UP COUNT 
ae 
MOV #ORTVO,R3 *DRIVE FLAG ADOR 
MOV #60,R4 
2s: CMP R4, Re ;WAS TYPED CHAR O THRU 7? 
BEQ 3$ : BRANCH S 
TST (R3)+ ‘NO, INCREMENT DR FLAG ADDR 
BNE 2s" :S/B 0-7 OR TERMINATOR 
ST Re 
CNP ORL 8-8 
BEQ 6$° ;DEFAULT ALL DRIVES 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 
1 28-JAN-77 11:05 


BESKRLGC= SBBIKRF 


CUTOUT UU UU UU 
eae fe Pn tee Boe ban on Foe foe pe fee fae fe fa Ge Re 


+ 
Bg 


SeSnneen 


POFOPORO RO FORGRarOkG 
Cae Bs Be tae ae ae De oe Bee ee 
WONDWU£ WHO 


Se UR SON SM OS WTR 





0OSSS& 


177400 
oo00s4 


044241 
010064 
177440 001264 


104412 
012600 
005700 
001403 
010037 001264 
potet7 


000210 001334 


Nes 
005700 
ess 
Len 


MACY11 27(1006) 


108 


1-JAN-77 


18:30 PAGE 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


7$: 


4§: 


Ss: 


6S: 


INC 
RTS 


SIZFLG 
PC 


Baivs 
CRO) 


;BYPASS TEST 1 (SIZING) 
FOUND TERMINATOR, EXIT 


DST alle peives. 
ess A ate 


"IS ITA bed 
Teat teRRin RATOR. EXIT 


;ONLY 0-7 ALLOWED. 
;START ALL OVER 


35/78 NO MORE THAN 8 DIFF 
;DRIVES TYPED IN. 
IF NORE, HAVE ERROR. 


;00 TEST 1 (SIZING) 
;EXIT. 


'ROUTINE TO INPUT RKBAS OR DEFAULT. 


1S: 


RDOCT 


#177440 , SBASE 


‘;GET LOW ORDER FROM STACK 
;BRANCH IF DEFAULT. 


;DEFAULT VALUE 


ROUTINE TO INPUT RKVEC OR DEFAULT 


GINT: 


es: 
1$: 


RDOCT 


(SP i+, RO 


S wal 


PC} SETINT 


#210, RKVEC 
es 


;GET LOW ORDER FROM STACK 
;BRANCH IF DEFAULT 


;DEFAULT VALUE 


‘ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY 


SETINT: ad 


RKVEC,RO 
INTER TRO)+ 


; INTER ADDR TO RKVEC 


S TO BE TESTED 


JO8 


UNTBUS _ DRIVE 2 ae a pe PART 3 MACY11 €7(1006) 31-JAN-77_ 18:30 PAGE 99 SEQ 0099 
OZR6JD.P11 28-JAN-77 11:05 GET VALUE FOR SOFTWARE SUITCH REGISTER 
Se40 24414 013710 001336 MOV RKPRI, (RO) ;PRS TO RKVEC+2 
24420 000207 RTS PC 


FI R READY (RDY) DURING A DELAY 
A COUNT IN TERP 


ROY NOT PRESENT {ERROR CONDITION) 


STAINED BEFORE. Fhe RETURN FOR EITHER CASE 


Eseaiones 6 
— 
” a 
5 eT 










+ F 
bose Oe4422 032765 000200 000000 + IT aRDY, RKCS1(RS) 
5253 024430 001010 BNE 
es os B 
Sook O24S56 sSTORE ALL RK611 REGS IN HOLDING REGS. 
5257 737 025676 JSR PC, CKCERR CHECK FOR SPECIAL CERR 
~—: pe :NO RDY 
She? 1b oo0002 1S: AOD 82, (SP) : SKIP ERROR 
Gesibe alec 025676 15k BC, CKCERR CHECK FOR SPECIAL CERR 
'ROUTINE TO FIND CONTROLLER READY AND STORE DRIVE REGS ONLY 
eas cnt 000200 00000 FRDYI: grr BeDY,, RKCS1.(RS) 
005337 o0s444 DEC TEMP1 
024504 001371 BNE FROY1 
Beey jae Bpease Roy RANG (Ra) » ERS 
DeuSce ISR PC, CKCERR sCHECK FOR SPECIAL CERR CONDITIONS 
GES is:  fOB 98, (SP) 1A TE OUER ERROR 
SH Ol Q00034 005434 “a RKAR@ (RS) , HR 
45 Wega i Peck , CHECK FOR SPECIAL CERR CONDITIONS 


‘STORE ALL RK611 REGISTERS IN HOLDING REGS 
J 


HOLD: MOV RKCS1(RS),HCS1 
CS2(RS 


HES ES CAEL SSSR SARA LY SC de cal 





MOV RK ) HCS2 
(RS), 
yess 
MOV RKDS(RS) , HOS 
V (RS) HER 
RS) HASOF 
y ) HOC 
MOV RKMR1(RSS, HMRI 
HOV RK (Re), 
V RKMR3(R5)) HMR 


KO8 


SE@ 0106 


: 
: 3 - : 
° 3 E r 
5 ; x 8 ' » * $ 
2 - Fic: § 
. E s g # : of OU 
aos. & ey x S = 
8 =e MS £ 6 « = She Seg a 
Be, - g: pe st. 5. ge sag fas - 
S Sie gh Se. & 2 @ re z 
3 reo ( BES RS EO OE ase 88h 2 & 
ye ge = ae fe : ae ea 
@ Kz 4 
“S ~4 wi z=" = : z = 
RS oo 4 = = = ese 
ph ee 5 tz EE OCS ge aeEs Scz fee Shee 
eS 6 ostE Tre 22 < zis wee gf sax sak zoos 
“e BEL SE Toate SEE zLsenieinsvty Ebay Spfee 
ae > Rr — 


o0s4es 
00S444 : 
000017 1§ 


a E Ebb ES EGE 
|| Bees Sbictomse's ESSe 
ene Esboccoecound Bete 
2) RSSRESRRRSS ost saan umann emanate a 


Bicesy Qoodse doses 


DRIVE DIAGNOSTIC PART 3 
28-JAN-77 11:05 


RK6 
Pll 
024702 


SEIELE TUPI ITNT RRR Oe 





VE DIAGNOSTIC PART 3 
28-JAN-77 11:05 
D10¥We wait 
Wee 804596 00017 
oos444 
1367 
read 
000026 
1 
16 000002 
000207 
beetie gory OO 
pBeies Doorre CONS 
025126 000207 
BIR ina ee 
e140 Ooi 
feei4e ouneo? 

144 017637 001552 
feiss faerie toe 
Ss EE wns Bes 
O2eS204 053737 ates 005512 
025212 013746 OOS444 
025216 013737 O0S476 OO0S444 
boe550 G13737 GoStAT OOSH7E 


MACY11 27(1006) 31-JAN-77_ 18:30 PAGE 101 
GET VALUE FOR SOF SWITCH REGISTER 
) 


parte: MOV RY 7156) SAV RY 
: tte BALA smcnsorescns) sFIND CORRECT ATTN 
Bre Burs 
a R 
RKMR (RS) sSELECT WORD O 
ISR PC, GSTA ‘GET LATEST STATUS. 
MOV {SP)+,R4 ‘RESTOR RY 
RTS 
1S CLR RKMRI1 (RS) 
ISR GSTAT 
MOV (SP)+.R4 RESTOR RY 
ADD , (SP) SKIP OVER ERROR 
RTS PC 
‘ENTER WITH A COUNT IN TEMP1 
THE DELAY IS APPROX 17 US/ITERATION + 12 US TO EXIT 
‘WHEN COUNT IS 0. BASED ON AN 11705 
biy: TST l -S.6 US 
Beg 1 3-8 us 
DEC TEMP 8-8 US 
DLY ;e.5 US 
1$: RTS PC 33.8 US 
‘THIS ROUTINE TYPES BYPASSED DRIVE#. ENTER WITH ORIVE® IN RO 
4 
BYP: TYPE MSG14 . 
MOV RO, -(SP) a ER TYPEOUT 
T °:G0 TYPE--OCTAL ASCII 
te ¢ 1 1 oe 1 DI 18) 
‘BYTE 0 :: SUPPRESS LEADING ZEROS 
ATS PC 
‘THIS ROUTINE READS ALL MSG A & B WORDS & CHECKS THEM AS REQ’D. 
GHKMSG: MOV @(SP),CHKFLG ; TO TED 
ADD 82, (SP) + BURP eee aN abbr fo IST ERROR 
ISR PC, GSTATI GET ALL ACTUAL DRIVE & CONTR STATUS 
T,£.A0 :SET UNIT 8 
Be SUNT ESAT , 
BIS SUNIT.E.A2 
BIS SUNIT,E.AS 
MOV TEMP1,-(SP) ;SAVE TEMP1 
MOV E.AO, TEMPL 
JSR PC GET PARITY FOR MSG AD 
MOV TEMP1,E.A0 
MOV E.Al, TEMP 
JSR PC, SBPAR GET PARITY FOR MSG Al 


SEQ 0101 





UNIBUS RKS DRIVE DIAGNOSTIC PART 3 macy LL 271 41 271006) Lezr 18:30 PAGE 102 SEQ 0102 
DZR6JD 28-JAN-77 11:05 SOF SWITCH REGISTER 
013737 OOs4¥44 o0s5S02 MOV TEMP1,E.Al 
nn 013737 O0SS06 oOs444 MOV E.A2, TEMP 
GET PARITY F 
a pO? 37 gsn20e 15k a GE ITY FOR MSG A2 
is ot 030202 WSR BeOCaPAR GET PARITY FOR MSG BO 
a aeesia nee eared MOV 1,€.80 : 
025316 ie 005504 o0s444 HOY £.B1, TEMPL sek senile lek wen @ 
02S330 Bs Spend oosso4 MOV Pere aT 7 
01 005510 oos444 MOV .B2, TEMP1 
tor 37 Gaeus JSR Fé, Stren :GET PARITY FOR MSG B2 
1 005510 MOV 1,£.B2 
013737 005514 oOs444 HOV E63, TEMP jb PeRITy jetta 
Seesoy ee esr 005514 MOV TEMP1,E.83 F t 
0253 1 MOV (SP)+, TEMP! REST 1 
peeice bisea7 Polite 01172 NOY SESCAPE’SiHPS | iSavE 
By os wor ge eS 
025432 001176 MOV $1S, SESCAPE ELSE SETUP ESCAPE 


gg) -tsP) faa FOFAINLINE ERROR 


EO USEEREL TUNEL LEI SSOSERSEE TEE 
a Meee 
et 


02S 32 001000 153500 1S BIT #SW9, 2SHR T HERE FROM WAIN INE ERROR 
DSH ooo002 2s ety oo sp) i: iE t BoOR TO ENT TO NEXT ERROR 
00S460 o0ss00 CMP —«xH.BO, E.B0 ;TEST MSG BO 
ree BQ Stéié#SS {BR _IF 
rt 025470 001176 MOV —«- 84S, SESCAPE : SETUP ESCAPE 
O2S464 011646 MOV (SP},-(SP) COPY RET 
025466 000207 RTS =ss«s#*C” '& RETURN TO MAINLINE ERROR 
001000 153442 4S: BIT #SW9, 2SWR iRe EO Tae HERE FROM MAINLINE ERROR 
at BNE 20S FL 
062716 oo0002 Ss: ADD —=s- 2, (SP) SRP RET ADDR TO NEXT ERROR 
O0S462 o0ss02 CMP —s- HA, E. Al fest MSG Al 
12 4 BEQ ‘BR IF OK 
BEEZ? Digs ee IE HOV «SBS eeSPye 
02552 ened RTS PC 7 
5 001000 153404 7S: BIT #SW9, ISWR 
My, bese yey BNE 
SHol 062716 00002 gs: ADD —Ss- 2, (SP) 
5463 025542 023737 OOS464 OOSSO4 CMP  —«+H.BI, E.BL :TEST MSG BL 





seseeee & 


N“ 


23n~ 


2 


222 


SOUR UR CE SR SAAS ORE RSS SRAPORER IIIT 


Bae Bs ee De Ba Be Bee De De ee 


WONT Ww--O 


NO8 








RK& DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) 31-JAN-77 18:30 PAGE 103 SEQ 0103 
Pil 28-JAN-77 11:05 GET VALUE FOR SOFTWARE SWITCH REGISTER 
BEQ ll BR IF OK 
12757 025564 001176 MOV 113s, Escape - 
HOV (SP), =(SP) 
RTS PC 
032777 001000 15334 10%: BIT 8SW9, ISWR 
001032 BNE 20 
062716 o00002 118: ADD #2, (SP) 
000001 o01SS2 12S: T 87.A2,CHKFLG ©, TEST_MSG A2? 
Sides Boas nS 
DON? 37 S266 16 JSR PC, RCYLD PUT INFO CYLDIF, DO NOT CHECK 
: 0015S2 138:  8IT a7 .Be, CHKFLG TEST MSG Be? 
riche 026570 FER ,RCYLA ipa! ae IN CYLADD, DO NOT CHECK 
032737 000004 o01SS2 14S: BI 07.83, CHKFLG ;TEST MSG B3? 
oon 026726 ISR PC, RSEC PUT INFO IN SECTOR, DO NOT CHECK 
026764 JSR PC; *PUT INFO IN HEADA, DO NOT CHECK 
013737 001172 001176 ISS: Hoy STHPS, SESCAPE RESTORE ESCAPE 
025660 012706 001100 20S: MOV 8STACK, SP RESET STACK PTR 
025664 013737 001172 001176 MOV STMPS, SESCAPE RESTORE ESCAPE 
025672 000177 153212 IMP QSLPERR 
ITHIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY 
*T.£.: IF NED, CTO OR MDS SET MESSAGE A & B ARE INVALID 
025676 905737 001550 éxceRR: TST BYPCERR 
a 001001 ae Saree ote os BR IF CERR 
025714 000207 RTS PC : 
16 032737 OO4000 OOS4OE 1S: BIT #CTO,HCS1 
001402 BEQ 2s iB IF NOT CTO 
ioiety RROR Ae TO ERROR, MSG A & B INVALID 
TS 
025732 032737 010000 O0S410 2: BIT #NED, HCS2 os Ob 
BSE rto reyes PRROR 2 NED ERROR, “He MSG A & B INVALID 
025744 273 001000 o0S410 3S: BIT anos, HCS2 
Seer e4 reyes OR 213 ;MDS ERROR, MSG A & B INVALID 
025756 000207 4S: RTS PC 


THI pout DOES THE SELECT DRIVE COMMAND TO GET STATUS 
HEN WAITS FOR CONTROLLER READY 


B09 


GET VALUE FOR SOFTMARE ‘SuiTCH REGISTER 


SEQ 0104 


OT OTT 


gs 
ot 
a 


SIE SL Sa ube eb eee ca a AMS CUR CENA 


;IF ROY NOT RECEIVED BY THE TIMEOUT, AN ERROR IS FLAGGED 





= 
5 y 
w & 
e 5 
~~ a 
3 8 
ras 
z 9 
ez (4 
we 
ketene 9 
Bor, ts 
SEs 25 
fo Lee 
ot 
ae Ne 
B3e. © 
Test © 
bs She 


ee 
bstck 


, BO-B3) 


REGISTERS. 


ON 


C 


TS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG AD-A3 


T STAT 


CURRENT DRI 


1¢RS3 


) 
) 


Ree 
VokScote 28 X 
cml ri 2 _— 
Bogs =on 


SABEEDDOEEE 


sceeok Be 


od a oe om oat 
[ooo0o0 


peneaee 


app 
a 
=-—oOoO 


GS_ONLY 
ECT DRV CMD 


—J 


1¢RS3 


anes 
ERBp =z 
eg Socke 


SBEBERESE 


ces 
coal Be 
So 


REGS ONLY 
SELECT DRV CMD 


gSELecr WORD 1 
















e Bs 
eee 
te 
a 9 88 
_3=™ 
ee 
=a 
EESES ys 


es 


cur 
nee 
— 
-ae- 


013737 005436 005460 


026316 


SiS 


2 


Q 


penneaaanaegy & 


ae 


ut 


BOG RRSRR RSE Srne She Soe cRRORRe Baa sMneERe 


¢ 


CO9 


RK6 DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) 31-JAN-77 18:30 PAGE 10S SEQ 0105 
Pll 28-JAN-77 11:05 GET VALUE FOR SOFTWARE SuITCH REGISTER 
926324 012637 oos444 MOV (SP)+, TENPL RESTORE TEMP1 
000207 RTS 
THI TI A YS AR & WAIT FOR CONT 
i TE Roy t¢ Ror rece VER BY THE ERD Ce THE TIMEOUT. AN ERROR. 6 PLAGE 
jTHE ROUT TINE THEN GETS CURRENT STATUS & BHECKE OO CONTROLLER ERROR roERA) 


RETURN 22 IF CERR CLEAR 
SUBCLR: MOV SSCLR,RKCS2(RS) ;SUBSYS CLEAR 


WSR Hg ;FINO RO 
ERROR 


10 ROY NOT "Ser BY BY END OF SCLR 
NOV T, RKCS2(RS) ; CURRENT 
CLR itrs) 
ISR PC, GSTAT GET STATUS 
BIT acERR, HSI :CHECK FOR CONT ERROR 
BEQ 1 
RTS PC 
1S: ADD 82, (SP) ;SKIP OVER ERROR 
RTS PC 


'READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ’SECTOR’ 
ROSEC: MOV 83,RKMRI(RS) § ;WORD 3 


MOV CTOR 
BIC AS SECT), SECTOR 

ASR SECTOR RIGHT JUSTIFY 
ASR CTOR : SECTOR 

ASR CTOR : INF 

ASR SECTOR 

RTS PC 


t READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN ’CYLDIF’ 


ROCYLD: HOV #2, Scie WORD 2 















MOV HMRG, CYLD CYLD 
BIC  a¢C<M.CDIF>, CYLDIF 
ASR —s- CYLDIF ;RIGHT JUST 
ASR —s«CYLOIF sCYL_DIFF/ FeeT 
ASR —- CYLOIF . INFO 
D265 DC ASR —s- CYLOIF 
D265 OC 000777 CMP CYLDIF,#777. =; CHK_TO SEE IF RET IN COMPL. FORM 
Deb 5.3 BNE 1S ;BR_IF_NOT 
lebS4C 001376 CLR —«-CYLDIF ;CLR IF YES 
265 18: RTS PC 


*READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ’CYLADD’ 


po0002 oo002 ADCYLA: NOV a2, RKMRI(RS)  ;HORD 2 
025760 JSR PC’ GSTA 


GREEREREE HERE EORERE ETE ar ene prmnrcerereerrnrrrnny fe 


cS eS Ee Es 


= 
a 


023727 


001422 
001422 


601818 


000021 


MACY11 27(1006) 31-JAN-77 18:30 PAGE 106 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
MOV HMR3, CYLADD 
BIC 8*C< A. CADD> , CYLADD 
ASR CYLADD RIGHT JUSTIFY 
ASR CYLADD “CYL ADDR 
Rak CYL : INFO 
CYL 
RTS PC 
; READ THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN ’CYLDIF’ 
RCYLD: MOV H.A2, CYLDIF 
BIC 8¢C<M.CDIF>,CYLDIF ;CLEAR UNWANTED INFO 
CYLDIF ;RIGHT JUSTIFY 
ASR IF 
ile 
cre CYLDIF, 8777 ; CHK To SEE IF RET IN COMPL. FORM 
CLR CYLDIF *ELSE CLEAR 
1S: RTS PC 
"READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN ’CYLADD’ 
RCYLA: MOV H.B2, CYLADD 
BIC 8#C<A.CADD>,CYLADD ;CLEAR UNWANTED INFO 
CYLADD sRIGHT JUSTIFY 


ASR 
ASR EYLARD 
fee GY 
RTS PC 

READ THE SECTOR COUNT IN H.83, RIGHT JUSTIFY IT & STORE IT IN ’SECTOR’ 


RSEC: MOV H.B3, SECTOR 
si¢< A. SECT» , SECTOR :CLEAR UNWANTED INFO 


BIC 
BSR TOR RIGHT JUSTIFY 
€TOR 
ASR CTOR 
ASR SECTOR 
RTS 
‘READ THE HEAD ADDR IN H.B3, RIGHT IT & STORE IT IN ’HEADA’ 
RHEAD: H. 83, HE 
fe MiECATHERD> , HEADA “CLEAR UNWANTED INFO 
ASR HEADA sRIGHT JUSTIFY IT 
HEADA 
TS 
*FIND SECTOR 17 
RETURN IF NOT FOUND 


RETURN +4 IF FOUND 


ae aa 


SECTOR, #17. TEST FOR SECTOR 17 


DUREYD.PLL Se-SAN?? Li:0s 


S690 


aa 


HINO a Sea sone oSe SRS RS eRe SM RIORS 


EPASA PRD 


es 


a33 


8 
_ 
<= 
- 
fw 


a Ge a 


22 
Be 


BRE 
gekes 


S 


paises 
026412 
001422 


00002 1 


00002 1 


es: 


3$: 


: ROUTINE E TO FIND HEADS HONE IN AKNR2 WORD 1 BEFORE SPECIFIED DELAY 


IF NOT FOUND 


; RETURN 
2 IF FOUND - SKIP OVER ERROR 


; RETURN+ 


18: 


oh eb heleneel 


in, 


PC, ROSEC 
SECTOR, #17. 


8-1, TEMP 

#1, AKHR ERS) 
*GSTAT 

2s ; 

TEMP1 

1§ 


TEMPe 
FHOHM 


~ 03 
SWITCH 


fétister 


;8R IF NOT 17 


;BR_IF READ SAME TWICE 
sELSE TRY 1 MORE TIME 
;8R IF 17 
; TRY AGAIN 


;SKIP OVER ERROR 


;SETUP TIMEOUT 


TEST FOR CYL DIFF 
IF NOT FOUND 


;BR_IF_READ SAME TWICE 
ELSE TRY 1 MORE TIME 


; TRY AGAIN 


;SKIP OVER ERROR 


;ALL_1°S 
;WORD 1 


SEQ 0107 


PPreRERREnrr SEL Er RASBERANSECIGEEC EEOC nan ECON EMEP EP EE es 


d €24 Gidess ee) SR 


=e 
o 
a2 


es 


8S S88888888 8 
fos eae eae Bee ae Bee 
LEE ELO 


6 gee 


MACY11 27(1006) 31-JAN-77 18:30 PAGE 108 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


RTS PC 
es ADD #2, (SP) ;SKIP OVER ERROR 
RTS PC 


TINE TO Note LOAD HEADS IN RKMRe WORD 1 BEFORE SMS 
Sua IF F : SKIP OVER ERROR 


FLoap: Mov q 
MOV T RART CRED ;WORD 1 
1S: JSR pC GSTAT 


BIT ° 
BAe: 
ir 
. a PC 
- 28: S so ;SKIP OVER ERROR 


001514 © 


001520 


;FILL HEADER TABLE WITH 66 WORDS OF VALID HEADERS 


SENTER WITH CYL # IN "CALADO’ 

: WITH HEAD # IN ’HEAD’ 

;ENTER WITH FORMAT IN *FORMAT’ 

FHDTAB: MOV RO, -(SP) -SAV RO 

MOV Ri’ -(SP) SAV Ri 

MOV sHOTAB, RO ‘HEADER WORD TABLE ADDR 
CLR Ri ‘SECTOR COUNTER 
MOV HEAD, HD1 
ASL HDL 
ASL 1 
ASL HD1 
ASL HD1 
ASL HO ;SETUP HEAD # FOR WORD 2 OF HEADER 
MOV FORMAT, FMT 
ASL FMT1 ;SETUP FORMAT FOR WORD 2 OF HEADER 


1S: HOV. GALADD, (RO)+ HERDER HORD 2-SECTOR No 
“FORMAT 


rol FRO) -F 
JSR PC, SEGFLG beat SECTOR FLAGS 


oR 


BIC fRO)e nto, Tene 
BIS Tere. T T Me 


MOV ;HEADER WORD 3-HEADER CHECK 

INC Rl ;SECTOR CTR 

CMP RL, #22. sALL 22 SECTORS DONE? (66 WORDS) 
BNE 1$ :BR IF NO 

MOV (SP)+,R1 ;RESTOR R1 


SEQ 0108 


# 


ganemeues # 


Bp eo to en to oo oe Soe eo 
be be ee 
WOnNMUSWHO 


saishn hiss 


A 


v 


+. 


—o 


Gr ep Seed Se Wad 2 


HENRONSS sede okt SoM UROSER 


09 


AGNOSTIC PART 3 macy 1 27¢ 1-JAN-77 18:30 PAGE 109 SEQ 0109 
AN-77 11:05 GET Se AOR cor tuARE SWITCH REGISTER 
hoy {SP)+, RO RESTOR RO 
THIS ROUTINE ¢ TS INFORMATION FROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS 
S BITS 14 8 1S OPRIATLY. 
ee MOV -(SP SAVE Re 
001516 TST Seana 
saab BNE 1$ . a ;BR IF 20 SECTOR FORMAT 
027544 JSR pRSEPEHEE » ;GET HARDWARE DETECTED FLAG 
100000 BIS eBtT15, (RO) "RETURN HERE IF GOOD SECTOR 
003400 MOV #8.,R2 EL 
027544 ISR peSErERSS Eee AETHORE DETECTED FLAG 
040000 BIS eBtT14, (RO) RETURN HERE IF GOOD SECTOR 
HOV (SP)+,Re sELSE RETURN HERE 
1S: Hoy (sP)+,Re sRESTORE R2 
ROUTINE THE ACTUAL SCANNING OF THE BAD SECTOR TABLES. 
gt WITH THE Tre AOGRESS OF TABLE (BSE22H, BSE22S, ETC.) IN TEMP 
RETURN IF COMPARE 
ELGTST: MOV R3, -(SP) ;SAVE R3 he 
177777 1S: a4 (R2), #1 ;SEE IF ALL 1’S 
HOV (SP)+,R3 RESTORE R3 
001402 2s: CHP (R2)+, CALADD ;SEE IF=CYL # & ADR PTR TO TRK/SECTOR WORD 
oo000e2 ap0 te, Re ;GO TO NEXT CYL WORD IN TABLE 
001510 3$ MOV HEAD, R3 ;GET HEAD # FROM FHDTAB ROUTINE 
BIS Ri,Ra o SECTOR 8 FROM FHOTAB _R ROUTINE 
pe a . ine Fe OREN? Gy HOR CYL WORD 
BR 1$ ELSE TRY NEXT CYL 
4S: MOV (SP)+,R3 ; 
000004 B00 #4, (SP) i RCRENENT RET ADDR 
‘THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS 
‘WITH AND RE-WRITES THE INFO IN SRTTAB TABLE TO BEGIN WITH SECTOR O 


UNTBUS aH DRIVE yoga PART 3 
OZR6JD.P11 1:05 


28-JAN-77 


See, reas 100 





S8S39 027626 004737 
St eee ies 
S863 027644 012700 
sees Gres) 63700 
poe8 027660 062737 
pte 027676 Ol20el 
ee 
sere ferris lobe! 
ey ee 001374 
027722 012601 
terres 01500 
cess 

S886 

oe rm eae 
00 770 Oss OD 
peas 027750 000207 
Sssy 

S89s 

5896 

S897 

ce9e 

Se99 

5301 

eens 0277S2 O10446 
S904 027754 

ae 027762 001014 
$907 

lt ol 
5910 027770 004737 
S911 027774 


Daigo 


BOMBS 


010000 


002400 
030024 


001422 


005406 


HOS 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 
dort: MOV —RO, -( SP) “SAVE RO 

MOV At = (8p) i BOVE Ri 

JSR PC, ROSEC 

BRR PA Rate ;MULT SECTOR BY 6 

MOV #132. ,.RO 

SUB SECTOR RO ;RO-SECTOR TO RO = INDEX 

MOV ct 

ADD SRATAB,SECTOR  ;SAVE INDEX 

ADD eRHTAB, RO X TO BOT HALF OF RHTAB 

MOV #SRTTAS, Rl X TO TOP HALF OF SRTTAB 
1S: MOV (RO)+, (R1)+ :PUT BOTTOM OF RHTAB TO TOP OF SRTTAB 

CMP RO, #RHTAB+132. 

BNE i$ 

MOV #RHTAB, RO ;PUT TOP OF RHTAB TO BOT OF SRTTAB 
2s: MOV (RO)+ RL )+ 

CMP RO, SECT 

BNE 2s 

MOV (SP)+,R1 sRESTOR R1 

MOV (SP) +, RO RESTOR RO 

RTS p 


MULT BY 6. ENTER WITH DESIRED # IN *SECTOR’ 


AULT6: ASL CTOR ;2 X SECTOR 
MOV CTOR, -(SP) 
ASL CT ;4 X SECTOR 
R00 (SP)+, SECTOR -(4 X §)4(2 X S) = 6 X SECTOR 


: THIS ROUTINE IS ENTERED ONLY IF THERE IS A BSE ERROR AFTER A WRITE DATA 
CMD. IT VERIFIES THAT THE SECTOR IS LISTED IN THE BSE INFORMATION 
; CYLINDER AT CYL 410, TRACK 


‘RETURN IF SECTOR NOT LISTED IN BSE TABLE, ERROR CONDITION. 
;RETURN+2 IF LISTED, SKIP OVER ERROR 


TRUERR: MOV R4, -(SP) ;SAVE RY 
Be ete OR FORMAT 
OTE, pi Sia FORMAT NOT 
MOV #BSE22H+8. , RY 
JSR PC, TERRI ;SEE IF ON HARDWARE DETECTED TABLE 
BR 3s’ RETURN HERE IF YES 


UNTBUS ~_ DRIVE ae a PART 3 
DZR6JD.P11 28-JAN-77 11:05 


oe 


RRGR BPRS ELIS TESS aaa Cape GRO RuNMNOaR NSS see 


o0s426 


005416 


001412 
00SSSe2 
000100 


177777 
000135 


001412 
001406 


1Si24e 


151226 
1Si2l6 
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VALUE FOR SOFTWARE SWITCH REGISTER 


MOV #BSE22S+8.,R4Y ;ELSE sb HERE 
apr ee 1 8 SFE IE i wee DETECTED TABLE 


1S: V (SP)+,R4 sRESTORE RY 
RTS PC ‘RETURN WITHOUT JUMPING OVER ERROR 
3$ MOV (SP)+,R4 RESTORE R 
82, (SP) : SKIP OVER ERROR ON RETURN 


; THIS ROUTINE DOES THE ACTUAL COMPARING OF CYLINDER, HEAD & TRACK AGAINST 


ee ee 


tena: fo OU BR IF YES: ROT ON TABLE 
CMP tBu +, HOC iste TF evL PA 
; 
; a 
o 


Fey )+ any TO NEXT CYL WORD 
BR TERR1 38 TRY AGAIN. 

1§ ADD #2, (SP) 
RTS PC 

2s: CMP (R4)+,HDA ;SEE_IF SECTOR & TRACK MATCH 
BEQ :BR IF YES 
BR TERR1 OR TRY AGAIN 


3$: RTS PC 


* ROUTINE TO TURN L OR P CLOCK INTERRUPT ON 


CLKON: CLR TIMUP 
TST PCLKF 
BNE 1§ BRANCH IF CLOCK PRESENT 
Nov #100, ,aLKS *L-CLOCK, ENABLE I 
RTS 

1S: MOV #-1, aPKSB i CLOCK, ALL 1 
MOV 8135, aPKS {NT ct iP. REP INT 
RTS FREQ & RUN 


IKWII-L & KW11-P INTERRUPT anon 
SLOCK: CLR TIMUP 
CEC «COUNT 


# 


qanmangagaseaaagaeayy & 


88 


2 


SER UHH EGRESS SAAION 


SS8SSS586 
be eee ee 
WONMUCWr- 


BRB 





151154 
151140 


OoS444 


1S06S56 


eel 27(1006) 31-JAN-77_ 18:30 PAGE ile 


INC IMUP ;SORRY, TIME IS UP 
18: RTI 


"ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF 
GLKOF: TST PCLKF ips 
Ks + REC OCK, {NTERRUPT 


18: CLR aPKS ;P-CLOCK, CLEAR INTERRUPT 
RTS PC 


 ATESTOPTSERSSETEES Oo aeensy OPe=TED NesSces 
inl 1S. INCREMENTED, T H END OF 1? i7 Rotates Tete ERP! BACK 115,88 Galt, 


jR no Bir 15 NOT. Nee INDICATING AN 00 & OF 


iE TAs NOT SET, I AN EVEN # OF 1’S , THE PARITY BIT - 
’ 
SBPAR: MOV RO, -(SP) : RO 

HOV R ~(8P) : Rh 

v #17., :SHIFT COUNTER 

CLR Rl “COUNT # OF 1’S IN TEMP 

CLC CLEAR CARRY 
1S ROL TEMP 

3 

BCC 2s BR IF CARRY CLEAR 

INC Rl ‘COUNT # OF 1° 
2s: DEC RO SHIFT COUNTER 

BIT 1T0,R1 

BNE ;BR IF ODD # IN RO 
= BIS #M.PAR,TEMP1] ; ITY BIT 


TE RPS RAN ME 


écopis: aSWR : ON ERROR? 
Bed ' TG NO 
RFLG HAD ERROR? 
;BR IF NO 
MOV SLPERR, (SP) 
RTI 


SEQ 0112 


# 
2 
oe 
~-o 

fond 


Haeeeaee 


he 


RERENPRARE LS acanae aii) 


OZR6JD. 
= 
: 
= 
= 
ea 


2 


Bae 
eal 





=-l|= 
AITALA 
mI 


+ | 
a 2 } 
ty A . 
; 4 


AiR 
+ 
mt) 


a 


tiered Bs § 


BA 


aah ee 


ees & 


; 


as 


are 


3 


: 
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001110 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


18: pad (SP), SLPERR ;SET LOOP ADDR FOR TIGHT SCOPE LOOP 


ROUTINE TO A ’SPACE’ OR ’CONTROL-E’ FROM TTY 
SRO YURN IF CONTROL-E 
IRETURN #4 IF SPACE 


CcSsP: TST asTKB ; FLAG 
Bi nm Poa ePID 
Sra te BR if 
BR écsp :TRY AGAIN 

1S: ADD #4, (SP) 

2S: RTS PC 


SROUTINE TO INPUT A ’SPACE’ FROM TTY 


detsp: TST  aSTKB ;CLEAR DONE FLAG 
Roy (SP)+,RO RET can OFF STACK 
CMP PQs ; SEE IF SPACE 
eo 1S ‘EXIT IF YES 

ws BR CES > TRY AGAIN 


TH I Y TYPING A CONTROL-C. 

TW fs Used To BO RE ERATOR TO HAT THE CPU WHILE INSURING 
;THAT HEROS ARE LOADED & FORMATTING IS VALID BEFORE ACTUALLY HALTING 
; ° 


étop: CMP —«(SP)4,(SP)+  ;RESTORE STACK FROM INTERRUPT 
STOP1: JSR PC, SUBCLR 
ERROR 24 


;CERR AFTER 
TST D : F HEADS UNLOADED 
Bea ce ‘BR it NO 
TST br ime MANUAL OR AUTO MODE 
ry nsc74 Ben ABORT PENDING 
1$: TYPE ,MSG7S ;HALT PENDING 


SE@ 0113 
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DZR6JD.P11  28-JAN-77 11:05 GET VALUE FOR SOF SWITCH REGIST 
6080 026332 JSR PC, SUBCLR 
ie se ree ERROR 24° ;CERR AFTER SCLR 
010000 o0S434 IT 80.SPIN,HMR2 —s; F SPINDLE ALREADY ON 
Barus, bbiGes BeOS BE dT vee 
cose 030450 TYPE ,MSG29 “PLEASE WAIT, HEADS BEING LOADED 
030454 MOV SSRTSPL,RKCSI(RS) ;START SPINDLE CMD 
fe Robt 
508° ISR Y FIND CONTR RDY 
603 030474 ERROR 143 : ROY NOT SET AFTER CMD 
030476 MOV T100, TEMP2 
JSR PC, FATTI ;FIND_ATTN 
ERROR 144 :NO ATTN AFTER CMD 
6096 CLR UNLD 
6097 64S: 
epee 3S: TST BADHOR SEE IF HEADERS VALID 
6100 BEG 4§ *BR IF YES 
bite Ry SEER, acs) 
6104 MOV SRECAL RKC 1(RS) sRECAL_CMD 
6105 RESET CYL DIFF/OFFSET & CYL ADDR REG 
stad Mov _—s«T1O, TEMP ie imo 
ste ISR PC, FRDY *FIND ROY 
6103 ERROR 124 *RDY NOT SET AFTER RECAL CMD 
6111 MOV #1,RKMRI(RS)  ;SELECT WORD 1 
6112 ISR PC; GSTAT 
6113 BIT #0:RTZ, HMR2 
6114 BNE BSS 
6115 14 ;RTZ NOT SET DURING RECAL CMD 
B11 65S: MOV T10, TEMP2 ‘SETUP TIMEOUT 
611 JSR PC, FATT *FIND ATTN 
b118 ERROR SS NO ATTN AFTER RECAL CMD 
6120 MOV #CCLR, RKCS1(RS) 
1 MOV SUNIT;RKCS2(RS) ;DRIVES 
1 MOV RKCS1(RS) “DRIVE CLEAR CMD 
1 MOV T10, TEMP ;SETUP_ TIMEOUT 
rl JSR PC, FROY *FIND RDY 
6125 ERROR 15] *NO ROY AFTER DRIVE CLEAR CMD 
6136 ISR PC, TSTATN TEST FOR ATTN 
6128 ERROR 154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
6129 SES: 
6130 
bie JMP FORM ;WRITE VALID FORMATS 
6134 4g: TST 42 SEE IF MANUAL OR AUTO MODE 
6135 BEQ S$ :BR IF MANUAL MODE 
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DZR6JD.P11  § 28-JAN-77 11:05 GET VALUE FOR SOFTWARE SWITCH REGISTER 

1 TYPE ; T 

te ey ee oe FP GTP ec ore 
6133 030722 000137 023742 IMP SEOP ;ABORT PROGRAM 

B14 0307 2% o44oss Ss: TYPE ,MSG77 CPU HALTED 

cia 030734 000137 010656 IMP STs :START OVER IF CONTINUE PRESSED 

145 030740 FORM: 

ely .SBTTL UNEXPECTED TIMEOUT HANDLER 

6148 ; 

6149 *THIS ROUTINE IS IF THERE IS 

6190 A. NON STAN MEMORY (NO SSYN) 

6152 : C. STACK OVERFLOW 

a 7 

He re Mus Sem: wey SSeS eC TE [Br nce 
a : 020000 150166 fe #oH13, 2SHR HTheByr ERR TypouT? 

et 1044901 o4440s ae : TS. UNEXP T.0. @ PC= 
6160 030760 010046 MOV RO, -(SP) +s oR ouT 

pips 030762 104403 TYPOS He =-0CT 

6163 030764 006 evr 8 EPR ht 

piee Batre 001000 150144 1S: aft #SW9, ISWR Ha SB hie 

ele pone See Eee copye «ieee. SectOMe stack 

6168 3008 eaeea 150102 IMP sot ine abe oF TEST 
6170 031 O40000 150126 2S: T 14, aSWR *LOOP ON TEST? 

ci SBIR BBRCEy 7 oe Soa 

172 031014 00002 RTI : YES 

174 031016 oo0000 : T TIME OUT OCCURRED 

a bee RENTERS TCH Dy 
pizs ERR Typeour By eer 1TING MHOSE 
6178 : SWITCHES. 

ats 031020 022626 CMP (SP)+, (SP)+ IRESTORE STACK 

6181 031022 000137 023742 IMP SEOP ABORT TESTS 

bigs .SBTTL MEMORY CHECK ENABLE TRAP 

1 1 1 1042 001176 MEMERR: MOV ’ CAPE 

elge ey 81 fe37 B31 9¢4 MOV CAB TRAPPE ;STORE PC 

at 031040 104202 ERROR 202 :UNEXP MEM PARITY ERROR 

189 031042 005037 001176 1S: CLR SESCAPE 

6190 031046 032777 001000 150064 BIT #SW9, aSWR CHECK IF LOOP ON ERROR 

6191 031054 001001 BNE 2s YES, FORCE STACK AND TRY AGAIN 


UNT 


=2 

os 

ee 
% 


I 


owe aH pe PART 3 MACY11 27( 1006) bat war? 18:30 PAGE 116 SEQ 0116 
1:05 MEMORY CHECK ENABL 


RTI ;ELSE RETURN 


001100 2s: MOV TACK, SP s INIT STACK 
1$0020 IMP 5B PERA 


sai 
B 
BA 
S 


o 
pa be be 
a 
be ee 


Sc 
AtAtA 


Le 


ieere PC WHERE INT —— 
036713 TYPE 
MO 


oe 


as pict 
NG ZEROS 


Be 
3 


RUerons RRBSSSS FE RB 
}={- =o8= 
a 
38 
“ZB 
“pERs 
i 
38m 
2 
: 


bm fae fs fm pa Be fee be ee RY OS PS he pe 





NOP 
RTI 
.SBTTL POWER DOWN AND UP ROUTINES 
sPOWER DOWN ROUTINE 


03112% 012737 031136 000024 SPWRON: MOV SSPWRUP,PWRVEC ;SET UP VECTOR 
031132 00000 HALT 
031134 000776 BR 2 HANG UP. 
;POWER UP ROUTINE 
031136 005037 031210 : CLR SPWRCT ;WAIT LOOP FOR TTY 
1142 005237 031210 1S: INC SPWRCT *WAIT FOR 
1146 bo1375 BNE 1$ OF WORD 
il 1 031124 900024 MOV #SPWRON, PHRVEC i SET POwE POWER | DOWN VECTOR 
1156 tte 000340 o00026 MOV OPR?, PHRVEC + iPRIO ae sn tone 
31183 i i vases NOV 5 Re Kop - pe a “ee 
Bie doa 037107 TYPE ,MSG11 T POWER FAIL 
031 RESET 
031 137 012440 IMP PFSRT 
031210 oo0000 SPWRCT: O ;WAIT COUNT FOR TTY 


‘DIVISION UTILITY ROUTINE 


‘Sean a, 
*RO-Ri ito AFTER bly SION 


IVI 
;RE-R3=QUOTIENT AFTER DIVISION 
sENTER WITH JSR PC,M.OPID 


031212 012746 000040 h. opto: MOV #40,-(SP) »;COUNTER FOR DIVISION CYCLES 


ee OES Ap aes toe sri 


5 


B10 


wt dope 18:30 PAGE 117 


SEQ 0117 


oe 
o x 
Be 3 
ea ® é 
se es ae! S$ # 
i. .8 3S : 
a s wes 5 
ee 2 : 
ne oe Mee a : 
seg ce Ee oe CROOR 8 
soe bse Bed Bi || bhoue Ee 


3.3, 


rag SEs aad B95 sk GoheBhi oo taer g2 2 : x 


0,SP 


PROOURURUTEUEEPEGEGE GREMAULANGGES ERE SIE 
é g § 52 


TIC PART 3 


11:05 


de aw i 
| LCRUEea! GEREN 20 


_ SRARSR CURR CRE REER EER RRannnens Bee Bae 


lateretatatatatetetotetetetetatetetototete! ed a et Oe) ad ef de RH ef ore om ee et eet oo ee 


SB88888 SSSSSSSSSSSSS888 8Bss sss 


5 SEARO Baa TB TAN SSOSASRAC RNRRNMRERRRRERE 
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& ass 


== bao fe Pe fee fae fe fae fae 


1 


RRO O ORONO RRAAAS 
BBSSSsSsssosssssssssssssss 8 BB 


pee ee pe tee ae fe ee Bt I ee be be Bet be mt bt hm be Be fe fee ran feet eo ee 






tRtatatatatay 






RoIKENA Lona ceed IPE CMBR SeRNeNnSS 


Soc 
ATATA 





147540 


147402 
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SCOPE HANDLER ROUTINE 


-SBTTL SCOPE HANDLER ROUTINE 
rg ih ak 


ag Pipe LL INCREMENT 
: ie a Beda REG. (DISPLAY<7:0> ) 
ye D ¥<15:08> 

ie wat ITCH os 

tou =] ait TIONS 

enos=1 LOOP 

; #SWOB= 1 LOOP ON TEST IN SWR<7:0) 
CALL 
;# SCOPE ;; SCOPE=I0T 
SSCOPE: 

CKSWR ;; TEST FOR CHANGE IN SOFT-SWR 

18: BIT #81714, OSWR ; LOOP a TEST? 


BNE ‘ I 
-e888ESTART OF CODE FOR THE XxOR TES soeae 


$XTSTR: BR 53 HY RUNN THE “XOR™ TESTER CHANGE 
3; THI TION TO A “NOP” (NOP=240) 
BSERRVEC ig cave S OF THE ERROR VECTOR 


MOV 
MOV 85S, J8ERAVE ;;SET FOR TIMEOUT 
TST oat 331 i. ? 
MOV (SP)+, Q8ERRVEC ;;RES THE ERROR VECTOR 
BR sSviAb 3:60 TO TE 
Ss: cre (3P)+, {SP + ‘ is CLEAR RTH STACK AFTER A TIME OUT 
BR ' HH he SRP CENT TEST 
6S:;88888END OF CODE FOR THE XOR’ 
I $TTO8, ¢SHR i on “SPEC. TEST? 
CMPB STSTNM tt ON RIGHT TEST? SWR<7:0> 
BEQ SovER ::BR IF 
2s: STB SERFLG >;HAS AN OCCURRED? 
Q ;;6R IF 
CMPB SERMAX,SERFLG ;MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI 3$ ::BR IF NO 
BIT 881709, aSHR +:LOOP_ON ERROR? 
BEQ ;;B8R_IF_NO 
7S: HOV ,SLPAOR ;;SET LOOP ADDRESS TO LAST SCOPE 
4S: CLRB SERELG ;;ZERO_ THE ERROR FLAG 
CLR STIMES +: CLEAR THE NUMBER riegRATIONS TO MAKE 
BR 1$ sit TO THE T 
3S: BIT #81T11, aSWR ee ITERAT IONS? 
rs i 7 ii TF aA 
Pe SICNT AE Tigh COURT 
cH STines, SICNT ; is CHECK OF ITERATIONS MADE 
1S: MOV BL SICNT nas Aiea TON COUNTER 
MOV SMXCNT, STIMES IONS TO 00 
SSVLAD: INCB $TSTNM : COUNT 
MOVB STSTNM,STESTN ;;SET TES Shure th IN APT MAILBOX 


SEQ 0118 


5 SEE SSEEEG SSS GRU GRACE SIS SC CEREEEREROEORIN Be 


4 — Queer rewrend 
ANIT HTS FSRINAS SR ORES 
7 £ 


Spee es a 
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= 
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Ba 
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SCOPE HANDLER ROUTINE 

RB 

CLR 5 He ERCHPE ERROR 


ADDRESS 
; ONLY AY Test NOreeR ON NEXT TEST 
SS 


SMXCNT: , ;;MAX. NUMBER OF ITERATIONS 
-SBTTL ERROR HANDLER ROUTINE 


SEG HE HE HEHE He HE HE HE HE AE HE HE HH EH HH HHH EEE 


=o RAMEE EE EE a aE aE aE EEE 
: &THI WILL I THE AG AND THE ERROR COUNT, 
save ere AND THE SS OF THE ERROR CALL 

I 


r) 
oo) 


: 
2338 
ne 
= 


N ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 


; #AND y 0 

;#THE SWITCH OP ons DED BY THIS ROUTINE ARE: 
treutaet WIEST TYPEOUTS 

ty 1 yt An 

; #SWOS=1 LOOP ON ERROR 

; #CALL 

;# 


;; TEST FOR CHANGE IN SOFT-SWR 


; ti BBW'T LEP THE FLAG. GO TO ZERO 


STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 


IT10, @SWR 33 
. TRING BEL 
1S: INC T HH NUMBER OF ERRORS 
cs ie oY RODKESS OF ERROR INSTRUCTION 


ah aarti, ITEMS Hid 1 oo er ITEM CODE 
ISR TYPERR ::G0 TO USER ERROR ROUTINE 
‘aad TYPE  ,SCRLF 
CHP SAPTENV, SENV i 8 IN Aer ; 
MOVB ITEMB, 218 ::SET ITEM NUMBER AS ERROR NUMBER 
J , SATY4 REPORT FATAL ERROR TO APT 
218 ‘BYTE 
225 BR 225 ; APT ERROR LOOP 
et, ae Ot Eiitiwue 
9° e 
as: BIT” eprros,aswr —FELBOP_ON ERROR SUITOR SET? 
BEQ 45 a 7 3BR IF ae 
us: tS Besta Hee Fo aN ERR bE Abbess 
MOV SESCAPE,(SP) | ;;FUDGE RETURN ADDRESS FOR ESCAPE 


eecaeatiiee ett ete es: 


- = 
AA 
v",V 


- 
aA 
v 


= 
AtA 
vv 


AtA 
if...) 


— 
A 


RELEFASRERSNBTSRS 


Rtn’ 
x44 


tA’ 
7,17 ,1 
ae Pes Bean feo fees ene = fn Bent feo es Bo fe =e ee es = ben Bee Bee Pee pee 


in 


= 
A 
A) 








032210 
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euld hese 022737 024030 o0004e 
6411 001001 
641 000000 
641 
6414 000002 


001230 


001231 


001231 
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ERROR HANDLER ROUTINE 


SS: 
CMP #SENDAD , as4e ;;ACT-11 AUTO-ACCEPT? 
BNE 6$ ;;BRANCH IF NO 

6s HALT 3s Ye 


RTI 5 ;RETURN 
.SBTTL TYPE ROUTINE 


FP ROUTINE TO TYPE AECL? MESSAGE MESSAGE MUST TERMINATE WITH AO BYTE 
tM ROUTINE WI a T A NUME TUR ARAC TERS A LINE FEED. 
: ILLER CHARACTER. 


s #NOTEL: CONTAINS THE CHARACTER TO BE USED AS THE F 
ieoTes: «—EYLE GRUTRINS FRE SERRE GECHERCHPMRTENS POUT. 
i Going G_A TRAP INSTRUCTION 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


; #OR 

3% TYPE 

# MESADR 

;# 

STYPE: TSTB STPFLG ;;1S THERE A TERMINAL? 
BPL 1s ;;BR IF YES 
HALT ;;HALT HERE IF NO TERMINAL 
HOV 4 


1S: i -(SP) HH 
: bi 
Re SSFew low fanny mig? ST 
BNE 6e$ ;;NO,GO CK FOR APT CONSOLE 
BIT® — SRETSPOOL,senmm | SrOD, Hesse 0 ABT 
,° 
ith «HRN Tame FO Foe 


61S:  .WORD 3 
Bes: BUTS BGG TCSUP, SENV ites, Skt oe 
(RO)+, -(SP) ee TO BE TYPED ONTO STACK 

- BNE” 4g Figs i rust CH ret Toe FERN TOR 

TST ($P + sa :31F TERMINATOR POP IT OFF THE STACK 
ggs: BS SPD i ABTUST RETURN PC 

RTI ; : RETURN 
4S: cree BHT, (SP) ‘BRANCH IF <HT> 

cree ECRL F, (SP) ;;BRANCH IF NOT <CRLF> 

TST (SP)+ ;;POP_ <CR><LF> EQUIV 

Tyee ;; TYPE A CR ey EgU 

CLRB SCHARCNT si CLEAR CHARACTER COUNT 
S$ JSR pC STYPEC He rv This T 
6$ CMPB tiLc,(SP)+  $31$ IT TIME FOR FILLER CHARS. ? 

BNE 2s :: IF NO GO GET NEXT CHAR. 
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OZR6JD.P11 1:05 TYPE ROUTINE 


;;PUSH RO ON STACK 
TACK 


= 
e 


;;PUSH R1 ON 


28-JAN-77 

bubs 032212 01374 001154 MOV SNULL , - (SP) 5367 # OF ni bLER CHARS. NEEDED 
646 000001 7$: CB sa SP) A TO BE TYPED? 
6463 nesaai gfe 6$ BG Bm THE NULL OFF OF STACK 
6469 oce 032262 JSR PC, $TYPEC ::G0 TYPE A NULL 
6470 O23 032326 DECB SCHARCNT ::D0 NOT COUNT AS A COUNT 
ae 000770 BR ; ;LOOP 
ae sHORIZONTAL TAB PROCESSOR 
6475 032236 112716 OO0040 QS: MOVB 3s #”_— «C (SP) REPLACE TAB WITH SPACE 
6476 O32e%2 004737 032262 9S: ISR PC, $TYPEC :: TYPE A SPACE 
aed fen bite 000007 032326 bre 87, SCHARCNT i SBRANCH TF NOT AT 
ci Geese Oisret Tt iGpie ROP SPACE OFF. sTaCK 
a 108777 146662 STYPEC: i378 as ::WAIT UNTIL PRINTER IS READY 
6483 116577 146654 MO 2(SP). aSTPB CHAR at BE T INTO DATA REG. 
bugs iberee 000015 d0000e2 cree scr alee Boker: 1S CHARACTER CARRIAGE RETURN? 
a eae 105037 032326 CLR ¢ T eo CHARACTER COUNT 
6488 B3e314 lee766 000012 o00002 18: CMPB ate .e(SP) HK CHARACTER A LINE FEED? 
ea IDaze? seonent eo ee COUNT THE COUNT STORAGE 
6492 032330 000207 STYPEX: RTS PC " 
ey Es .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
6496 ; JHMM HII HHH 
ae jAtwis Routine I TS Tee NRBCR AND TYEE TT. DEPENDING ON WHETHER THE 
6499 TIVE A MI IGN WILL BE TYPED 
a ae eaaae' ice Hot etal Se ls 
6502 
6503 ,7 (SP) TT INARY NUMBER ON THE STACK 
6504 a PDS ne 6b 10 THE. ROU 
ceoe STYPDS: 
6507 910046 MOV (SP) 
6508 1 MOV (SP) 
6509 010246 (SP) :: PUSH Re ON STACK 
eit 1DSHE MOV RS’ =CSP) + PUGH RS ON STACK 
ele Oleg 020200 MOV #20200, -(SP) ee uA aH AND SIGN 
651 000020 MOV 20(SP);R5 : GET NUMBER 
bel BPL 1$ ::BR IF 
at NEG He THe ney POS. 

b 1 000055 000001 MOVB = &’-, 1( SP) +e i NEG. 
cle HERE BS cee =i OE ie 
6519 12723 000040 MOVB 8’, (R3)4 ::SET THE FIRST CHARACTER TO A BLANK 
6520 2s CLR CLEAR THE BCD NUMBER 





STALL LTO Oe 


G10 
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Pll 28-JAN-77 11:05 CONVERT BINARY TO DECIMAL i, ROUT IKE a 
032402 016001 032536 MOV SDTBL(RO),R1 § ;;GET THE CONSTANT 
105 3S: SUB RL,RS ::FORM THIS BCD DIGIT 
1 Pt 4 se 
1 NC R2 +31 HE BCD DIGIT BY 1 
14 000774 BR 3s 
4g: AO R1,RS ;;ADD BACK T 
TS Re ;;CHECK IF DIGIT= 
Reiss fh i Hy 
105716 Sta =: ( SP) :STILL DOING LEADING 0’S? 
032426 100407 - BNI 3 ;}8R IF 
ene tes7oe riers 6S: BIS #’0,Re :: MAKE te BC Bletr ASCII 
ca ete a ee 
Be ile mye eal HL, SSSI” 
’ 9° 
000010 CNP RO, #10 CHECK THE TABLE INDEX 
BLT 25 +360 bo THe NEXT DIGIT 
BGT Gs He T 
MOV »Re ;;GET LS? 
4 BR § G0 CHANGE TO ASCII 
tee te gS: STB (SP)+ isHAS, THe LSD THE FIRST NON-ZERO? 
7% il 177777. 177776 a Ov ASP), “2(R3) is YES THE SIGN FOR TYPING 
ea Oi ze0e MOV (83) +, RS ti Bap Met 0 Re 
032510 012603 MOV (SP)+'R3 ::POP STACK INTO R3 
032512 Ole602 MOV (SP)+)R2 *:POP STACK INTO Re 
032514 12601 MOV (5P)+/RI ?:POP STACK INTO RI 
132516 Ol MOV (SP)+’RO *:POP STACK INTO RO 
Ages Basous re tua tho 
132524 0166665 000004 MOV 2(SP),4(SP) ADJUST THE STACK 
012616 MOV (SP)+' (SP) 
325. RTI ;;RETURN TO USER 
SDOTBL: . 
1000. 
100. 


10. 
SOE: abeke 4 
. SBTTL COMMUNICATIONS ROUTINE 


GS ae 





1 ee LS ROVE a) Sr TO REPORT FAT. ERROR 
seaae H P ee RROR 
00000 1 33055 gatvi: ROVE a jee :T0 TYPE A ME 
000001 033022 saTyi: MOVB #1,SFFLG ;;TO ONLY REPORT FATAL ERROR 
"MOV RO, -(SP) ;;PUSH RO ON STACK 
10146 MOV Ri’ -(SP) PUSH R1_ON STACK 
105737 033020 T 1B SHFLG +3 TYPE A MESSAGE? 
ak 000001 001230 CMPB = BAPTENV,SENV =; ;OPERATING UNDER APT? 
00103 BNE ;;IF NOT: BR 
000100 001231 BITB § SAPTSPOOL, SENVM + SHOULD SPOOL MESSAGES? 
1425 BEQ 3s ;;1F NOT: BR 


! 
' 


2 
a 


EEEEPEEREESEGNS SSE SOSURRAGRELNSS & 


FESST TEESE 
WONMU£C WO 


ROR RR UR EREN 


H10 
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Pll oes TT os APT A Bant CATIONS ROUT INE edicsenes 
032634 017600 000004 MOV a4(SP), RO ;;GET MESSAGE ADOR. 
40 000004 A00 #2, 4(SP) RETURN ADOR. 
; 1210 1S TST snéc TYPE ss SEE Ra W LAST XMISSION? 
032654 010037 001224 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 
Ibs7e0 2s: iste (Rb) 445 NO END OF MESSAGE 
63700 001224 SUB SMSGAD , RO 3 SU8 START OF MESSAGE 
ASR Ro GET MESSAGE LNGTH N WORDS 
1 00122 MOV ; GT Het NGTH IN MAI 
1 001210 HOV 4, SHSG E ‘TELL TO TAKE Hse. 
Oi es? DO0004 032732 3S: MOV D4(SP) 4S nut MSG ADOR IN JSR LINKAGE 
14 po0002 000004 ADO #2, 4(SP) -BUMP RETURN ADDRESS 
ae eee ORG STYPES Ht at PUSH 1777 re “BR STACK 
4g: .WORD O° 
S$: 
405737 033022 10$: STB  SFFLG 3 REPORT FATAL ERROR? 
1416 BEQ les ;:IF NOT: BR 
sige 001230 TST SENV : NG R APT? 
001210 11S: Feo 453 type i LAST MESSAGE? 
001375 BNE 11§ *:IF NOT: WAIT 
oe AROS GRR BB} ESCSTAAFATA FST EONS ser aon 
O52? 001210 = INC SHSGTYPE ;; TELL Fann TAKE ERROR 
Hay Sasss Re By eee 
at on er aye R T PINTO ve 
015600 noy (36) Rs Be INTO RO 
RTS PC 33 
000 SHELG: BYTE 0 jsMESSG. FLAG 
es Sth: BYTE OB te OFal “Frac 
000200 APTSIZE=200 
a fe 
000040 APT 0 
.SB INARY TO OCTAL (ASCII) AND TYPE 


ER TE tNSED TD DME A 1G BIT BINARY MUMEER 10 A 6-DI 


THIS ROUTINE IS USED D TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
PM. TO tee SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
— * MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
3% TYPOS 3; CALL _F OUT 
* i YTE N > sNel 9 FOR NUMBER OF DIGITS TO TYPE 
i YTE MM 3 M=1 
+ i 3; 1=TYPE LEADING ZEROS 
i ;;0=SUPPRESS LEADING ZEROS 
:#$TYPON----ENTER HERE TO TYPE OUT WITH ons SAME PARAMETERS AS THE LAST 


| 
' 


UNIBUS RK& DRI 
OZR6JD.P11 


ASTSES TS MAASAI TS UELURIATD ALTA beast ebeasaaan anes 


secretes 


3 


; 


ie 


Alalatata 
a AtAtA 
fet Bee Pe fee pms ft Dee ee 


AtAIA mAtAtA 
AtAlA AtAtAtAt 
BIECKSIVEESSR ARS 


2 
ee 


Cet el 
fe he 
ce 
o 


= 


cess 


VE DIAGNOSTIC PART 3 
28-JAN-77 11:05 


033247 
033246 






ooo0c2 000004 
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BINARY TO OCTAL (ASCII) AND TYPE 


;#STYPOS OR STYPOC 
S#CALL: 


STYPOS: 


STYPOC: 
STYPON: 


1$: 


7$: 


6S: 


MOV 


TYPON 
;# 
a HERE FOR TYPEOUT OF A 16 BIT NUMBER 


sis RugSRRES RERBBDSBSRREESSsER ISS 


2z 
as 


ELE Sista 


3 
< 


NUM, -( SP) 


:# © MOV NUM, -(SP) 
TYPOC 


a(SP),-(SP) 


Ree 
ary 
ae 


RRR 
z 


P.*] 
Ww 


“I 


GUECUE ys 


eae 


SEG 0124 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


35PI 


ee L THE TCH 

+ ROPER BF bey eto type 

+: ADJUST RETURN ADDRESS 
SET THE ZERO FILL SWITCH 


::SET FOR SIX(6) DIGITS 
33257 THE ITERATION COUNT 


RY 
i SAVE, RS 

:3GET NUMBER OF DIGITS TO TYPE 
; ; SUBTRACT i FOR MAX. ALLOWED 


33 IT Fi 
ay re PEROUFILL SWITCH 
;;PICKUP THE INPUT NUMBER 


tiROTATE nee INTO “co 


::FORM THIS DIGIT 


3GEF L THIS DIGIT 
3; YPE_THIS DIGIT? 


::BR IF YES 

se "T ANYMORE 0°S 
HA THIS 0 T ASCI 

3 i NOT ALREADY 
-- SQ F ING 


::G0 TYPE THIS DIGIT 

ii6e Le Rone To 00 

° . 
BORE SL THT ® Bm 
j SRESTORE RY 

it GFF the Back FOR RETURNING 
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000002 
000 
UU 
000 

000000 


a 











000176 001140 


000001 033252 


MACY11 27(1006) 3i1- in 


-77 
BINARY TO OCTAL (ASCII) AND 


Sate Rei ROUTINE 


18:30 PAGE 12S 
TYPE 


i ORAGE FOR ASCII DIGIT 
Hotta piety Couvtek ecpir 


t AONBER "OF Biclrs TO TYPE 


s LELLLLLLLLLLLLLLLL ALLL LELLLLLLLLAALLLARLLLLRREERRRLE SELLE SELLE 


er ‘is 


STKQOUT: .WORD 
Tk ig “BUKB 1 


ath INITIALIZE ROUTINE 


tiTNPUT POINTER IN QUEUE 


: iY KE POINTER 
TY KEYBOARD QUEUE 


SSE TOP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


‘enipy 
* ISR PC, STKINT 
i RETURN 
STKINT: ent 
MOV 
ney 
MOV SET as 
RTS PC 


OF ITEMS IN QUE 


TK Hirata Ste hes Be et ed POINTERS. 


sPuKves Hoa 


ii FLAG 
; TTY KEYBOARD INTERRUPT 
: RETURN TO CALLER 


wen ROUTINE 
SSTHI ROUTINE WILL SERVICE THE TTY KEYBOARD INT 
THE CHARACTER 


a iy A 


#UPON RETURN EXIT 
aes, MOVB asTKB,- (SP) 
BIC i, 17%, (SP) 


1s siNin 
1S: che P, ,87 


CHP SSUREG, SUR 
BEG 
es: cHP BL STKCNT 


ERRUPT 
FROM THE INPUT BUFFER AND PUTTING 


oon es (tC) STKINT IS CALLED AND 
MADE TO THE “CONTROL-C” RESTART ADDRESS (STOP) 


; PICKUP THE CHARACTER 
;}STRIP THE JUNK 
3315.21 A CONTROL C? 
tt TYPE A CONTROL-C (1C) 
ban DW 'OB Stace 

; CONTROL C RESTART 

HIS ITA ROL G? 
31S SOFT-SWR SELECTED? 
:GO TO SWR CHANGE 


;;1S THE QUEUE FULL? 


SEQ 0125 
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1 
15 Yowo1 01200 
' 
000023 
001021 
Fe ES ee acco 
6 : 145500 
6755 1 Me 145474 
ice We 
eres ex te: 
Raee 001 
es eg 12777 000100 14S4S2 
S 1 000140 
5 D335 
bree ieee dts: 
ce 
ry bees ee 
6753 D332 rate 033254 033261 
6771 1 033260 033254 
6 oooode 






001140 


000001 


1 001135 


K10 
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MACY11 27(1006) SEQ 0126 
TTY INPUT ROUTINE 
BNE 3$ ; BRANCH IF_NO 
YPE SBELL *:RING THE TTY BELL 
ny tSp)¢ CHARACTER OFF OF STACK 
38: ), 823 Hi A CONTROL-S? 
a KS bi re INTERRUPTS 
isi 3 1 RAR Ruan ofF efack 
318 TSTB 43s AS TKS ::WAIT FOR A CHER 
BPL 18 LOOP UNTIL ITS THERE 
Hove ri B,-(SP) :3GET THe CHARACTER 
RE PEGA? ASSP) HKD, } 
BNE 1S : BRANCH IF NO 
HOV #100, aSTKS $3 TTY KEYBOARD INTERRUPTS 
32S: as STKCNT He THIS CHARACTER 
cre (SP), #140 31S IT UPPER CASE? 
CNP ( — 2315 I na AL CHAR? 
BGT ao $8 I 
us Bite PeOSS OSTKOIN fiGROTPUT fr Th ‘SueLE 
; INC + ODDATE THe NTER 
ChE BIKGIN, aSTKGEND 519 OFF te 
MOV BSTKQSRT,STKQIN ;;RESET THE POINTER 
Ss: RTI 33RE 


pad a at 


ola TTY I 
1 
op asTKS 
MOVB atfia, -<sP) 
BIC #tC177, (SP) 


(SP), 4? 


s ib EE 


RERELAEMKERKERALLERREBRE 
SLCONTROL IS opment 


aRPE A Beg 


ree 

JSR (ors STKINT 
CLR astks 
MOVB #1, SINTAG 
TYPE ,SCNTLG 


RKSBRERA RRR RRL KLEE E 
AND WILL 
SHITCH REGISTER TRAP 
T-SWR SELECTED 
Ha 4 R WAITING? 
HIE Rot, exit 
+ NBRE IT 7-B1T ASCII 
HF ior IT 3? 
Hf IN THE TTY QUEUE 


OFF STACK 
NPUT QUEUE 


DPR aN nar 


;;ECHO THE CONTROL-G (fG) 


L10 


SEQ 0127 
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SS et 


: : S oy 
: 3 5 E 5 $ 2 
Bes csevln ue Uk OCS a 
scele ek oh : _ 
- ie i - Esa Ad. i bog $2 
erte,. gp Getta’ Fee get ae 
“ E prSae gr erate ye acer cages detee- sae 
Zz = = - ££ 
I pope a ee etek 
g Aas wes sens tenseemon peamnaniuae jotta em en secnce ce cncee wae 
es 6 ies ee St bee Ped 
Sergey Rigg % $2, 2. Sug BERR cy 
+, Og E02. £2 S02 ite neue soni a Se 
a 
c toftoshs og eetefese tetas sevazelEvecnseacrgcddetal's 
a8 8 a2 
EY ae: 
a 8 Hane 8 95 : 
Siscl Eid Goatees ES 


16677 


snes 





boeesess GGGee Bassoese is 


5 sau S505 5 UG NNS ON SSROEDSRUSLGAE NEG TENG 





z 
3 


SRS PURSES IDE DADE ESESUSSSSSSSSRREREEDEOEEDS 


vo 
fee 
— 


me 
=r 


Bia aaaaosasaaae 


AIR KE ESRRSSRY 





2 
é 


- 
- 
— 
— 
— 

v 


Six 


- 
- 
= 
- 
~ 

a) 


a 


Ro 


-— 
RN 


e 


034436 
034460 
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033261 


O34434 
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TTY INPUT ROUTINE wed ses 


.DSABL LSB 
s praTe ROUTING MITC INPUT A INGLE CHARACTER FROM THE TTY 
sth THIS: S ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

;;GET_A CHARACTER FROM 


is al RE 4 
i * bit PARITY BIT TSE er OFF 


SROCHR: MOV (SP), -(SP) PUSH. DOWN THE PC AND 
eR ise} ,eCsP) if TER 
LR 4t8p) a Bis ie i 
MOV #64S, -(SP) isPUT 

64S -ipe 

is: 7 T STKCNT net ON A CHARACTER 
ie Higiarwsr LEPEPO UE ca 
tne” Stout” 


cre ined , 8STKGEND’ se OF THE END? 
2s: HOV TKQSRT, stout fe : ad 
3 coausttteeaussnenpessaueaneesides etceagutreeessaneneeessncen 
‘iTHIS. ROUTINE WILL INPUT A STRING FROM THE TTY 


:#CALL: 
+ 3 N TR 
ti RP NN HERE ya te: 3 PYAST  CHORRETER WILL BE ON THE STACK 
i >: TERMINATOR WILL BE A BYTE OF ALL 0’S 
SROLIN: MOV R3,-(SP) ss 

CLR -( Sp) + eR THe RUBOUT KEY 
1$: MOV aSTTYIN,R3 *:GET 
2s: cH asTTyINtee, R + BUFF veut 

ROCHR > 260 ONE CHARACTER FROM THE TTY 

py (SP)+, (R3) siGET TER 
10S: ce 8177, tR3) ioe If  RUBOUT . 

Ist (SP) sis Ty THIS, THE FIRST RUBOUT? 

HOVE #2435 + PE Fa NBack SLASH 

MOV b-1, (SP) --SET THE KEY 
6S: DEC R3 He Br one 

che R3, #STTYIN j STACK eNery? 

(82) ,95 ig 0 TYPEOUT THE DELETED CHAR. 


BR 2s *:G0 READ ANOTHER CHAR. 
mes he Loew oe = 
99 
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bat ° 1 : ~— 034434 nove a’\,9S 3; TYPE A BACK SLASH 
6915 an 1 CLR tS) ;;CLEAR THE RUBOUT KEY 
Cee OU Ae : 
SES ke Se mh Ae 
4 cine tks 


ae Te i 


HER 
8 
is 
333 
nin 
& 


6328 4 1oWO} 001204 4S: TYPE SQUES 
1 BR is see A THe BUFFER AND LOOP 
Be ei 3 3s Hove (82), 98 *:ECHO THE CHARACTER 
3 ie iS C iS, (R3)+ ;;CHECK FOR RETURN 
6931 1305 BNE 25 Hee ae NOT Re TURN 
6 i777? CLRB = - 1 (R33) THE 1S) 
6 1 001206 TYPE Sir aPCINe | LINE 
& 19 TST tSP)+ Y FROM THE STACK 
6935 1 MOV (SP)+,R3 ae 
6 14 OL164% MOV (SP), -(SP) i: TT STACK AND PUT ADDRESS OF THE 
6 6 1666 900004 oo0002 MOV 4(SP}_2(SP) T ASCII CHARACTER ON IT 
6 1 36 000004 HOV aSTTYIN, 4(SP) 
O06 : Y a, FOR ASCII CHAR. TO TYPE 
8 ae abi, ‘Brie g Yemninar OS BYTES FOR TTY INPUT 
BS BRS PS oxen HH BS, Foams eRe 
“6944 135 006525 000012 SCNTLU: 74U/415><12> $; CONTROL “LU” 
S45 034472 043536 005015 000 SCNTLG: “AeCI? 74G/<15)<12>  ;;CONTROL “G" 
eae rete 01 1412 051127 SMSWR: .ASCIZ <15><12>/SWR = / 
10 ret 16 O20127 SMNEW: .ASCIZ / NEW = 
6949 034516 020075 000 a 
6950 034522 EVEN 
6951 “SBTTL READ AN OCTAL NUMBER FROM THE TTY 
baes H PEERS HERRRRESAL ASKS RKAKKREKERKSRRRESKLEREALERREKE SAR LLELE 
eas : ibtuts ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
6 #7 BE TO I THEY ARE LEGAL 
3 estat Rag a i seinen cheRACTER s Bor uiLL BE TYPED 
6958 AGE RETURN-LINE — NUMBER MUST 
6959 He BE Oo Reyes net INPUT IS GINS INATED ie TYPING A CARRIAGE RETURN. 
6961 ty - " RDOCT 
6962 i RETURN HERE LOW 8 ai ON TOP OF THE STACK 
b363 + i COW ORD a ‘IN: SHIOCT 


ti tNpuTcnURBER’ or’ TE 
t1PUSH RO ON 


000004 900002 
RO-ON STACK 
| 1PUSH RI ON STACK 


Pee 
eos 

Re 
Sess 
FeG8 
Be 
Sx 
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28-JAN-77 11:05 READ AN OCTAL NUMBER FROM = 
010246 MOV R2,-(SP) ;;PUSH Re ON STACK 
OY411 18: ROLIN ;;READ AN IZ LINE 
1 aie HOV {SP)+,RO ;;GET ADORESS OF IST CHARACTER 
an A CLEnt Oar wor 
112046 2s: MOVE {R0)+,-(SP) iP THIS CHARACTER 
eats 000060 ao #’0, (SP) + CHARACTER 
122716 000067 eee ti, (SP) i418 AW OCTAL DIGIT 
002423 BLT ug ’ 
reste Rot OR We 
eek ASL Ri 33*4 
006 102 ROL Ro 
6 1 BIC #107, (SP) siSTRIP THE BSCTI_ JUNK 
1 ao {SP)+,R1 sA00 IN THIS DIGIT 
34620 38: TST (SP)+ HSE, oe FROM STACK 
bee «(Ol 12 Ri, 12(SP) 
ee 1G ees ny Re, SaocT 
eres bise0i roy See Re siPQE STARK INTO Re 
1 HOV (SP)+'RO ::P0R STACK INTO RO 
4S: TS (SP)+ F TACK 
Bree Obie s EL ge PERT AL FROM STAC 
g999 O3464% 104401 hs TYPE : aA LS THRU THE BAD CHAR. 
iol Geieee 1oG) 0120s a eT pede Tap 
7003 034660 000000 SHIOCT: .WORD 
70 -SBTTL OOUBLE LENGTH BINARY TO ijt XK: oo cBAVERT ROUT ROUT INE 
7006 ijt : SrAOUTINe WiLL COMWERT @ 32-817 epssnasaneneseessuenssssneser 
= “gel Sdn Tp yoro oF ete re 
aio i: MCR Pe oats BS alk Root nepal " 
7012 * RET THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
7014 
1S 04413 S0B20: SAVREG REGI 
Mit ABER HEH? cocoe BE acs HABE RITES v0 Lou wor 
7017 70 Ol 035001 MOV SSOCTVL4+13.,RS ::POIN RTO Dare TOBLE 
7018 ™4 Ol 14 MOV #i2.,R4 :1PS 
701 1 1 MOV 8tC7/R3 + MASK 
7020 121 MOV (R1)+,RO > ;LOWER WORD 
7021 708 O12101 MOV (R1)+;Ri i HIGH WORD 
woes Gave ti 1s: OV AB, -(RS) i PUT CHARACTER IN DATA TABLE 
7024 034714 010002 ; MOV RO, R2 ::GET THIS DIGIT 
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7025 7 
= : 
ooo00e2e 
7030 tates 
7031 000207 
fis GNrg Geto 
7035 Tey 
7037 O34750 006001 
oR GNI Dias 
iF 000060 
fee Ser 
704. 
7044 
704S 
7046 
7047 
7048 
7049 
7050 
7051 
7052 
7053 
70S4 
7055 
70S6 jorei3 
7058 Bie700 035162 
7053 10066 00000e 
7060 12201 
7061 1c 
7062 1 000012 035100 
fe Geoe Ieiv01 
7067 
7068 
Tes Gets ON 
7070 
7071 : 
7073 
7074 
7076 44' 000060 
70793 
"7080 aes 


MACY11 27(1006 
DOUBLE LENGTH 
DEC 
T 
Q 
INC 
MOV 
RESREG 
RTS 
2s: ASR 
3$: ROR 
ROR 
ROR 
ROR 
ROR 
ROFi 
R66 
BR 
SOCTVL: .BLKB 
-SBTTL OOUBLE 
55 Ree 
: &THIS ROUTINE 
s#DECIMAL (ASC 
: TIVE. 
; #CALL 
s# MOV 
3% JSR 
;# RETURN 
$0B82D: SAVREG 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
1$: CLR 
es: SUB 
SBC 
SuB 
BLT 
INC 
BR 
3S: ADD 
ADC 
ADD 
CMP 
BIS 
MOVB 
DEC 
4§: . WORD 
BNE 


wow 


31- wet GE 131 
INARY TO peTA A II Pegaves ROUT INE 
RA 1 COUT THIS 
as ree iF AY IS rai PISRINT R FOR FIRST 
Ban Tie Hal 
PC ::RETURN TO 
R3 tt BOSITION Ter MASK FOR THE LAST DIGIT 
R : :POSITI THE INARY NUMBER 
aT $e HE OCTAL been F 
RO 
aa 
R3 5 MASK UNK 
BO Re :: MAKE THis $ CHAR ASC ASCII 
1s :G0 PUT I TIN] THE DATA TABLE 
TH BINARY TO beCTRAL Past A ORTERIT ROUTINE 
SPREREALLKL SHS RLABSRESSL LES LRESEL SK ERLERERLE EBL REE 
WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
5 NUMBER. THE SIGN OF BINARY NUMBER MUST BE 
8PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
PC, aa$0B2D 
;;THE FIRST ADDRESS OF ASCIZ 
*?1S ON THE STACK 
33 REGISTERS 
2(SP),Re ::PICKUP THE DATA POINTER 
CYL, RO * GET ROORESS OF “SDECVL™ STRING 
2(SP3 : PUT OF ASCIZ STRING ON STACK 
(Re) +R *:PICKUP THE BINARY NUMBER 
#10. 45 ;;SET UP TO DO 10 CONVERSIONS 
eS TiO RY ADDRESS OF TEN POWER 
TNPWR+2, RS 
R3 :;CLEAR PARTI 
(BY), RI SUBTRACT TEN POWER 
(RS), Re 
3$ ;BR IF TEN POWER TO LARGE 
R3 : FADD 1 TO PARTIAL 
2s *LOOP 
age : RESTORE SUBTRACTED VALUE 
(RY)+, 
(RS)+; (RS)+ MOVE TO NEXT TEN POWER 
#’0,R3 i 5 CHANGE | PARTIAL TO ASCII 
R3, (RO)+ 3 ;SAVE IT 
(Pe)+ 3 
1$ ;;BR IF NO 


a 
o 
ZR 
co 
bes 


28-JAN- 





+ 
> 


i 0 be BP 


KERIO SSSRERER ENDS cee 


err de 





oo0000 

44 

7100 000012 

7101 000000 

7102 000001 

7103 000000 

7104 000014 
7105 
7106 
7107 
. 7108 
7109 
7110 
7111 
7112 
7113 
7114 
6 


O3Se42 00 
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MACY11 27(1006) 31-JAN-77 18:30 PAGE 1 SEQ 0132 
DOUBLE LENGTH BINARY TO DECIMAL ASCII C RT ROUTINE 


CLRB- (RO)+ : TERMINATOR 


RESREG RESTORE REGISTERS 
STNPWR: 156090 v2 449 

160400 ;;1.0€08 

5 ;;1.0&07 

041100 ;;1.0E06 

103240 ;31.0€0S 

gree ;;1.0€04 

1750 ;;1.0€03 

iw ;;1.0&02 

Le 1.0€01 

i ;;1.0€00 
SDECVL: .BLKB 12. SERVE STORAGE FOR ASCIZ STRING 
-SBTTL SINGLE LENGTH BINARY TO biCTRAL ASCIZ ROUTINE 


; Se ee apg ge gee ae ppt greece ge 
i iTHIS ROUTIN ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER T 
; SUNS IGNED DECIMAL ASCIZ NUMBER. 


+ NOV NUMBER, =(SP) _;;PUT BINARY NUMBER ON THE STACK 


: SR _—s PC, a8SSB2D : CALL 
1H RETURN tTADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
2(SP),1$ i 3 SAVE BINARY NUMBER 
-{tSP) N 
HS, (36), + a Bde LENGTH CONVERT 
#5: (SP) i FONLY ALLOW FIVE CHARACTERS 
)+,2(SP) i 5B POINTER 


1S: ORO OO 
-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


pyoreensnessonystuessdestunenneotescesveonesetonessonseusegeseas 
t ATHIS ot ty USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 


; #LEADI 
; #CALL 

te MOV -(SP) ;;FIRST ADDRESS OF ASCIZ STRING 
1 JSR sD ASSUPRS 


PC 
a a Mee UB THE POINTER 
1S: TSTB 4c3P : ti TERN NATEDR? 
BEQ ;;BR IF YES 


Ell 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) 31-JAN-77 18:30 PAGE 133 SEQ 0133 
DZR6JD.P11 28-JAN-77 11:05 TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
000060 #’0, (RO)+ 5315S THIS a ASCII “0” ? 
2s: Fee AS tt BOP BY ot 
035262 HOV RO, 3S 1 ve FOR TYPING 
itoko : Boci2 BOIN INTER GOES HERE 
(SP)+,RO 
(SP)+; (SP) ete AO STACK 


RTS PC 
.SBTTL INTEGER MULTIPLY ROUTINE’ 
yet el aciaaann se ean ane ken TPR 









 ACAL 
1 MOV MUL TIPLER, - 
i HOV MUL MUCTIPLICAND r tSP) 
ii RETURN ;;PRODUCT IS ON THE STACK 
is STACK PRODUCT 
i TOP LSB’S 
* i +2 MSB’S 
SMULT: 
MOV RO, -(SP) ;;PUSH RO ON STACK 
MOV R1,-(SP) :PUSH R1 ON STACK 
MOV Re, -( SP) ss TACK 
CLR -($P) He SIGN KEY 
000012 V 1e(SP) RL He ns MUL TIPLICAND 
PA 185) GR, Fue SCN KEY 
NEG R1 *:MAKE THE MULTIPLICAND POSTIVE 
1 000014 18: ov {sP) »Re : eT TIPLIER 
338R I 
atts ; an oe Ee MUP TTPLIER POSTIVE 
517s Me 2s MOV 817. ,-(SP) is Bove LOOP 
7174 CLR RO *:SETUP FOR THE MULTIPLY LOOP 
7176 tes 3$ BCC 4s - ::DON’T ADD IF MULTIPLICAND = 0 
717 006000 4g: ROR RO" ssPoaT Tron Tie THE PAR PARITIAL PRODUCT AND 
7179 Oo5316 DEC (SP) ‘THES BA ATS OF S OF THE MULTIPLICAND BEEN DONE? 
7181 022616 CMP (SP)+, (SP) ; ; SHOULD PRODUCT BE NEGATIVE? 
718¢ BEQ 3 :GO TO EXIT IF _NO 
a 1 ee OR HEYES~-S0 RAKE IT 0 
7185 SBC RO 
7186 SS: TST (SP) 2 3CL IGN INFO. OFF OF STACK 
71 1 000012 MOV , 12(SP) +:PUT THE PRODUCT ON THE STACK (MSB’S) 
7188 10166 000016 R1' 10(SP) ;3L88’S 
71 1 MOV (SP)+, Re :POP STACK INTO Re 
7190 012601 MOV (SP)+'RI ::POP STACK INTO R1 
7191 MOV (SP)+'RO ::POP STACK INTO RO 
7192 RTS PC 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) 31-JAN-77. 18:30 PAGE 134 SEQ 0134 
DZR6JD.P11  28-JAN-77 11:05 SAVE AND RESTORE RO-RS ROUTINES 
7193 .SBTTL SAVE AND RESTORE RO-RS ROUTINES 
ie . 1 avers rerenmnirermenis: sete 
51g te 
7198 !% _SAVREG 
7199 ; HUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
720 ixTORom= (446) 
# ¢2---(+18) 
7203 + +4---R5 
7204 t% +6---R4 
7205S # +8---R3 
720b :#+10---R2 
1#4+12---R1 
7208 + 14-=-RO 
7209 
510 1 ne V (SP) K 
at rea start Noy fits = (3B) + Pye ff ah STARK 
1 10 010246 MOV R2’ -(SP) : PUSH Re ON STACK 
7214 O35412 O10346 MOV R3,-(SP) ts R3 ON STACK 
7215 p3S414 DLO MOV RY, - (BP) Pus RY ON STACK 
18 a5 OieEue My OBStape gp) HSBUE BE OF RAIN FLOM 
ot rete bieeue Bonde MOV $5(ep)' =(eP) :SAVE PC OF MAIN FLOW 
7219 30 O1b6HS goon22 26(5P), -(S) i 5 SAVE PS OF CALL 
7ee0 34 O16646 NOV 22(SP)}'-(SP) $:SAVE PC OF CALL 
7555 *RESTORE RO-RS 
7224 :#CALL 
7225 ty RESREG 
ee fee a 
012666 000022 MOV (SP)+,22(SP)  ;;RESTORE PC OF CALL 
7228 O35446 Oleb66 000022 MOV (SP }+,28(8P) : REST OF call 
7229 12666 000022 MOV (SP)+! 20(5P) Reston Pe OF MAIN FLOW 
7ex0 12566 o00d22 MOV (SP )+; 22(SP) t tREST OF MAIN FLOW 
1 : MOV ; + ;;POP Hay ol = 
aa fe RABE 
7235 035472 012601 MOV (SP)+°R1 + POP STACK INTO RI 
72% OsH74 HOV (SP)+'RO ::POP STACK INTO RO 
7238 .SBTTL TRAP DECODER 
Lay : 5 0 6 46 2 4 EE a A A a a a a a a a a a a a aE 
1 tht tm us ROUTINE. WILL PICKUP THE LOWER BYTE TRUCTION 
7242 X THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
eu a The a $I RED ROUTINE THEN USING THE ADDRESS OBTAINED IT WILL 
roup 035500 010046 STRAP: MOV (SP) SAVE RO 
7247 035502 016600 000002 MOY BCP) ORO ttGET TRAP ADDRESS 
035506 005740 TST -(RO) ::BACKUP BY 2 





VV & 
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Pll -JAN-77 11:05 
att: 11000 
035514 016000 035534 
035520 000200 
Geese 011646 

016666 000004 000002 
035532 000002 





Gll 
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TRAP DECODER 

move (RO), RO siGE1 RIGHT BYTE OF TRAP 

ASL =—séRO :tPOSITION FOR INDEXING 

MOV STRPAD(RO),RO ;:INOEX TO TABLE 

RTS —sRO ::G0 TO ROUTINE 


;;THIS IS USE TO HANOLE THE “GETPRI” MACRO 


STRAP2: MOV (SP), -( ;;MOVE THE PC DOWN 
MOV 4(SP}, SE) } MOVE THE PSW DOWN 
I ::RESTORE THE PSW 


-SBTTL TRAP TABLE 


;#THIS a CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
BY THE “TRAP” INSTRUCTION. 


; ROUTINE 
$TRPAD: .WORD STRAP 
STYPE js CALLSTYPE TRAP+ (104401) Try TYPEOUT ROUTINE | ae ; 
ST beet =TyPoS Thee 351 Bao TPE Setar A UNEER (NO TERING 0S) 
STYPON ;;CALL=TYPON TRAP +H (14404) TYPE OcTAL NUMBER (AS PER LAST CALL) 
STYPDS ::CALL=TYPDS § TRAP4S(1 ) TYPE DECIMAL NUMBER (WITH SIGN) 
SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
SCKSWR ;;CALL=CKSWR § TRAP+7(104407) TEST. FOR CHANGE IN SOFT-SWR 
SROCHR >: CALL TRAP+10( 104410) IN CHARACTER ROUTINE 
HY fettapset IRpsistlnts} eto" Ora Meee Hh 1 
SSAVREG ;CALL= G Teast Scouts) Baty RO-Re ROUT INE 
SRESREG ;;CALL=RESREG TRAP+14(104414) RESTORE RO-RS ROUTINE 
SCOP1§ ::CALL=SCOP] | TRAP+1S(10441S) INTERNAL LOOP ON ERROR 


H1l 
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SEQ 0136 
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-SBTTL SERVICE MESSAGES 


##22% CAUTION ####4/<(CR><LF> 
<«CR><LF>/THIS PROGRAM SHOULD BE HALTED ONLY BY TYPING CONTROL-C/ 


(CR><LF>/OTHERWISE CARTRIDGE FORMATTING AND, OR THE DEVICE/ 
(CR><LF>/MAY BE LEFT IN AN UNDETERMINED STATE/<CR><LF> 
(CR><LF>/INITIALLY, DRIVES TO BE TESTED SHOULD HAVE: /<CR><LF> 


(CR><LF>/UNIBUS RKO& DRIVE DIAGNOSTIC/ 
«CR <LF> /MAINDEC~11-DZR6J-D-PB/<CR><LF> 
(CR><LF>/A. HEADS MANUALLY LOADED/ 


‘“ 

~ 
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_ ond load al Col lon) mo mm 
o 3 o o o oO o o 
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aisga53 Y SSNPS aah SuNtnAeY ar eeoneT TAREE e=. 

raiders ae Keay fe prrResues Gitta iS sq faaauettr es 
wmz295 62.85 

saarveaal Eee Ganeeaer sed reer perrererers 
Gauae Beer Mall mreeee cau ee renSe car yea reseeoales 

Babess aha taste taies 

ee 
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Baeibe 047514 
1S 027102 
17 
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poe pee 
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abs Pls! 


a 
is Coobaed Pods 


© ve 
ae : 

1S 
Be & 
hee i 
ane 
ae 
ets 


tatn 
nL 
ero Fat 


re 
Bs 
: 
z 
7354 
z 
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zs 
7364 
eS 
ES 
ae 
fe 
7375 
a 
7380 
2 
7385 
s 
z 
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fi 
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MACY11 27( 1006) 
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SERVICE MESSAGES 


-ASCII 


-ASCIT 


-ASCII 


-ASCIT 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


(CR><LF>/B. CORRECT PORT SELECTED/ 


(CR><LF>/C. WRITE LOCK DISABLED/ 


<CR><LF>/D. DRIVE READY INDICATOR ON/<CR><LF> 


(CR><LF>/DRIVES NOT TO BE TESTED MUST HAVE/ 


«CR><LF>/BOTH PORTS DESELECTED/<CR><LF> 


(CR><LF>/BE SURE TO PUT SCRATCH PACK IN DRIVE 0/ 


(CR><LF>/DRIVE(S) TO BE TESTED: / 


(CR><LF>/TYPE BUSS ADDRESS IF NOT 177440: / 


<CR><LF>/TYPE CONTROLLER INTERRUPT VECTOR IF NOT 210: 


SEQ 0137 
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DZR6JD.P11 28-JAN-77 11:05 SERVICE MESSAGES 


7 
7? : MSG6: .ASCIZ <CR><LF>/INTERRUPT OCCURRED AT PC=/ 
1 


MSG7: .ASCIZ <CR><LF>/DRIVE O WILL NOT BE TESTED/ 


MSG8:  .ASCIZ <CR><LF>/INTERLOCKS TEST/<CR><LF> 


SeaRReGRORaES 
S 








1 
a fe | 
ile J0S01 MSGS: .ASCIZ <CR><LF>/REMOVE UNIT SELECT PLUG’ 
7414 03704 
7416 1 
ae Maret 4 MSG1O: .ASCIZ <CR><LF><LF>/WIIL TEST DRIVES:/ 
a Baosbe 
7421 bi 047520 MSGI11: .ASCIZ <CR><LF><LF>/POWER UP RESTART TO TEST 1/<CR><LF> 
7422 042527 050125 
Ee 
ioe 
7426 15 
7427 ae 047117 OO6SOS MSGl2: .ASCIZ /NONE/<CR><LF> 

1 75 MSG13: .ASCII <CR><LF>/NO L OR P CLOCKS PRESENT/ 

fe Tels pueowg 


z 
8 
? 
-_ 
iw 
— 
NX 
R 
- 
uw 
— 
Ww 


-ASCIZ <CR><LF>/ALL TIMING TESTS BYPASSED/ 


MSG14: .ASCIZ <CR><LF>/BYPASSING DRIVE / 


eG 
: 
aE 


RR 
be bs 
fs 
2 
Rz 
™“ 
eel eel 


is ee 
mu ee 
- 
mw 
— 
R 


OSi104 MSG1IS: .ASCIZ <CR><LF><LF>/DRIVE / 
MSG16: .ASCIZ <CR><LF>/DRIVE SERIAL NO. / 


a oe 


RAPE 
Bc EeR 
Zaks 


o 
me Ue 
More 


BRR 
éy 
PRIP 


— 
_ 
= 


MSG17: .ASCIZ <CR><LF>/CARTRIDGE SERIAL NO. / 


4 
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= 
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Pll 28-JAN-77 11:05 SERVICE MESSAGES 
ea Ba33e¢ ave OS2412 O44516 MSGI8: .ASCIZ <CR><LF>/UNIT SELECT PLUG TEST/<CR><LF> 
7455 genie’ 042523 a 
we io sae eee 123 
a5 my OSL? MSG19: .ASCIZ <CR><LF>/PORT SELECTION TESTS/<CR><LF> 
7461 WS$2103 047511 Oe0116 
giese 052123 
Bais p MSG21: .ASCIZ <CR><LF>/AC LOW DETECTION TEST-PART 1/<CR><LF> 
7466 1505 047117 
7467 O51 
mies 1 
nay 015 O47012 047117 MSG22: .ASCIZ <CR><LF>/NON-EXECUTABLE FUNCTION (NXF) DETECTION TEST/<CR><LF> 
1 


i 
? 
~“ 
-_ 
N 


051505 


oe 


006524 
Gree MSG24; .ASCIZ <CR><LF>/WRITE LOCK TEST/<CR><LF> 
eat 


ase 
000012 
peel? patton MSG26: .ASCIZ <CR><LF>/AC LOW DETECTION TEST-PART 2/<CR><LF> 
1 044524 047117 
051S0S 026524 
Oost 0521 031040 
1 D46101 MSG27: .ASCIZ <CR><LF><LF>/ALL DRIVES TESTED/<CR><LF><LF> 
g20114 Tis OS3111 


— 
8 


z 
~ 


-ASCIZ <CR><LF>/MULTIPLE DRIVE DETECTION TEST/<CR><LF> 


feel 
mae 
BBs 
RRR 


me 


-ASCIZ <CR><LF>/PLEASE WAIT, HEADS BEING LOADED/<CR><LF> 


SEES Sai suas cu Tree SERN MOP TE aediIoaee 


BURHOARERS aka aRReasE SRRER REET T IIIT 


eit 020105 040527 
1 i 1 
1 i 14 
1S 
015 053012 051105 MSG30: .ASCIZ <CR><LF>/VERIFY DOOR CAN NOW BE OPENED & LEAVE IT OPEN/<CR><LF> 
043111 020131 047504 


Lil 


SE@ 0140 


(CR><LF>/VERIFY SPINDLE DOES NOT START & HEADS DO NOT LOAD/<CR><LF> 
«CR><LF>/INSERT DISK PACK, DEPRESS ’RUN-STOP’ TO ’RUN’ & CLOSE DOOR/ 


MSG3S: .ASCIZ <CR><LF>/DEPRESS *RUN-STOP’ SWITCH TO ’RUN’ WHILE CARTRIDGE REMOVED/ 


: 
[vY) ~ 
a 4 
= > 
" S 
5 3 
. 
fo a 
set = 
x w 
a & - 
Fas} = ¥ 
: “ee ag 
ae. é 
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¢ ° r 
c & 5 é 
8 a €& . 
7 an w a 
@ ce ¥ wi hd 
a 
ft < § ui ws 
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ast al & alt 
ry . - 2 ¥ 
—? ce “a a 
“” a S S 
~" v laid 
gs " : 
=} 2 B z 
SS 
Ss os 8 . 


MSG32: .ASCIZ 
MSG34: .ASCIZ 
MSG36: .ASCIZ 


6 
051120 MSG37: 


: 
aoadis 0 Hlcee siutisdaall Mali tiaeeSbect ateamiee 
= a eee isa? 
aes 


OD 
ad od 
a et ed oa ed eed ee Bed eg 
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SEQ 0141 
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z 
z 
wo 
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8 
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é 











(CR><LF>/THE PROGRAM WILL ECHO THE UNIT SELECT PLUG NUMBER/<CR><LF> 


-ASCIZ 


or 


<(CR><LF>/DEPRESS CONTROL-E TO EXIT TEST/<CR><LF> 


MSG39: .ASCIZ 


<«CR><LF>/VOLUME VALID NOT SET/ 


MSG4O: .ASCIT 


(CR><LF>/MAKE SURE ORIGINAL UNIT SELECT PLUG IS INSERTED/<CR><LF> 


-ASCIZ 


<«CR><LF>/DESELECT PORT IN USE & SELECT OPPOSITE PORT/<CR><LF> 
<«CR><LF>/DESELECT WRONG PORT & SELECT CORRECT PORT/<CR><LF> 


ASCIZ 
-ASCIZ 


MSG41: 


MSG4e: 


cree ar — 
—_——- 3 


% 


- 
A 
- 


renin Fu8 
Wigs Figausz 


Souee base SSSeNesLRIRTR 





See Se CE ea eee eee een | 
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| RRRRREEEREEEE EER A ARMA R RRR ERE Re Ree e eee eee seeeeeaee 
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wv 
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fear 


foru 
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2222222 
SNE Re IS bet 


EP fps Deen feat fee fms fees fees Dam Bem et D9 Pa? Dae Peo fae ha eS fee Pee Dae 


B2PIPIIILIPIZIPIZEP 
PENeRaeS 


SBM aeeOs Rats 


o 


PREFER ERs 


£ 


TREE Fe 


PPPS PPP PPPS SSPE SPL PISS PE LELE ES 


eee ee be be Be fe Be Fo ee hee ee fe Pmt ft = f° ee ee es he Pf fem fe Pee 


SUSI"? REVS MLUER, SIR 7? Ison rae 2 oN 


ase he bieble 051805 MSGY3: .ASCIZ <CR><LF>/DESELECT BOTH PORTS/<CR><LF> 
iss Gee 


erie O46105 MSGH4Y: .ASCIZ <CR><LF>/SELECT CORRECT PORT/<CR><LF> 


MSG4S: .ASCIZ <CR><LF>/CORRECT PORT NOT SELECTED, TRY AGAIN/<CR><LF> 


R BRP 
pg ee 


bee 


MSG47: .ASCIZ <CR><LF>/VERIFY DOOR CANNOT BE OPENED (DO NOT FORCE)/<CR><LF> 


N“ 

ba fae 
p— bs — 
io 


ae 
WISN 


MSG4Y9: .ASCIZ <CR><LF>/TURN OFF AC POWER FROM BEHIND THE RKO6/<CR><LF> 


z 
8 





MSGSO: .ASCIZ <CR><LF>/SWITCH AC POWER BACK ON/ 


MSGS1: .ASCII <CR><LF>/MOMENTARILY REMOVE & INSERT THE SAME UNIT SELECT PLUG/ 


. 
es 
‘ 


~ASCIZ <CR><LF>/TO RESET VOLUME VALID/<CR><LF> 


mSGS2: .ASCII <CR><LF>/DEPRESS SPACE TO DO TEST/ 


‘ saad a be Ne 
—_ —T = Fe Ui £& Der 

| ae a § ehegeres zi 
Be 
oe 
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° 
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PPPIIITIZP = 
x 
2 
8 
SR 
2 
is) 


DeeNIesre 


my -ASCIZ <CR><LF>/OR CONTROL-E TO BYPASS ENTIRE TEST/<CR><LF> 
1 ll 


See? fat no fae fe poe feo 
~ 


-ASCIZ <CR><LF>/DISABLE THE WRITE LOCK SWITCH, VERIFY LIGHT GOES OFF/<CR><LF> 


a 


311 


one 
eee 
Su¥sen 
SERR 
inn 
Z 
a 





2 
— 
2 
Po 


MSGS4: .ASCIZ <CR><LF>/ENABLE THE WRITE LOCK SWITCH, VERIFY LIGHT GOES ON/<CR><LF> 


ig33 
Ce 


7702 042106 O4eSeh 944522 
7703 114 1} 
re Bt | 
7706 i - " 
7707 O42137 015 12 O44530 MSGSS: .ASCIZ <CR><LF>/EXIT TEST WITH ORIGINAL UNIT SELECT PLUG NO. / 
7708 042144 124 123 
7709 1 il 110 
7710 1 11 1 111 
7711 1 101 16 
7712 1 1 2514 
7713 052103 052514 
ah ssi 020107 047516 
Pce 
rt is. parade MSGS6: .ASCII <CR><LF>/ALIGNMENT CARTRIDGE USED/ 
7718 1440 110 
7719 


-ASCII <CR><LF>/PROGRAM WILL BYPASS THE WRITE LOCK TEST/ 


-ASCIZ <CR><LF>/AND READ-WRITE DATA PORTION OF AC LOW DETECTION TEST-PART 2/<CR: 


NS = =O 

—— Swe 
=I 

Serene Sie 
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SEQ 0144 
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SERVICE MESSAGES 
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Gbe: .ASCII 
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MSGS8: .ASCIZ 
MSGS9 

MSG60 ASCII 

MSG61 
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SEQ 0145 


(CR><LF>/CINSERT CORRECT UNIT SELECT PLUGS BEFORE EXITING)/<CR><LF> 
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MSG67 
MSG68: .ASCIZ 
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-ASCIZ /MESSAGE BO ERROR/ 
“MESSAGE Al ERROR/ 
“VOLUME VALID NOT CLEARED IN RKMR2/ 


-ASCIZ /MESSAGE B1 ERROR/ 


-ASCIZ 


-ASCIZ /CERR SET IN RKCS1/ 

-ASCIZ /DOOR STATUS IN RKMRe NOT CLEARED/ 
-ASCIZ /SPINOLE ON SET IN RKMR2 

-ASCIZ /VOLUME VALID NOT SET IN RKMR2/ 

.PSCIZ /CARTRIDGE STATUS IN RKMRe NOT CLEARED/ 
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.ASCIZ /WRITE LOCK DID NOT OCCUR AT SECTOR BOUNDRY/ 
-ASCIZ /UNS NOT SET IN RKMR3/ 
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E, IF pett AFTER 20 ERRORS 
ELSE SEE IF HAVE 20 ERRORS 
PEL TORE STACK 

AND BYPASS ORIVE 


SPACES 


SEQ 0164 


3 & 


pt a ps RH pe be be pe pe pe 
OWOnNOU £ Wu O 


PETES E CELE onesies 





$: 





10 


™ 


K13 
WACYIL 271006), 31-J8N-77 18:30 PAGE 165 


SPACE2: .ASCIZ/ / ;@ SPACES 
; ODT-11 -- VOOSA 


; DEC-11-U0DPA-A-LA 


; COPYRIGHT 1969, 1970 1972 
: DIGITAL EQUIPMENT 


; MAYNAR. TS O1 rey 
- ENEBL , AMA 
ee 
a ar) 
Re = %2 : CONVENTIONS 
R3 = %3 
RY 2 %4 
RS = VAS} 
S 5 177776 STATUS REGISTER 
0. IvEC : Ao PRI PRIORY Yh gear = STeTUs REGISTER 
O.TBT = 20 REGISTER 
7 > (Bbooee ea 
Resioes Ih IN TT CAETER A BrerKbo PERK A sons er! TO ZEm D, AND SEARCH 
; BE USED EXCEPT F F "Gee aR a ae T RODRESS et CAO). 
b.RDB = 177562 :R DATA BUFFER 
O:RCSR = 'R C/SR 
ST: ie Herre 
; eae oR FOR A TRY 
8 + 
; URE Robt eo To aeeta ODT MIPING, OUT eu, BREaMPomNTS 


b.opT: BR $ AF ;NORWAL ENTRY 
5322 Ho : 


* RE-ENTER 
3. ctvecee, ST SET UP LOCAL STATUS 
PC.0.UPC’ “FAKE THE PC 


MOV 
IMP 0. Ki . 
6.STRT: MOV #0.URO, SP 


SAVE STATUS 


aor PGE Tig SENED STARK 


SEQ 0165 





feat Bem et Pen p= bee Des PO te be selene 


DIAGNOSTIC PART 3 





11:05 


BEB urns 





0S5334 


MACY11 27( 1006) 
TYPE ROUTI 


ERROR 
O.RST: JSR 


O.RST1: J 
BR 





L13 


© esti 18:30 PAGE 166 


,0.SVR RE 
8 OTR 30. ADR i REMOVE Gi BREAKPOINT 
0.PRI,R4Y iGET add PRIORITY 

RY 

RY . 

R4 ;__POSITION 

RY, ST ;STORE IN STATUS 

sri 

@RTI,O.RTIT i BE cal con TO RTI IF 11720 OR /0S 
0.P ON DROtEY 
#0.STM,0.TVEC+2 ; +O TATUS WORD TO TRT YECTOR + 2 
#0.BRK,0.TVEC : PC TO TRT VECTOR 

0.RALL : CLEAR BREAKPOINT TABLES 
HANDLER 


EXPLICIT ORDER OF THE TWO TABLES 0.TL AND 0.URO 
GET CIAL_NAME, GET ONE MORE CHARACTER 


ta] 
"o mi 


#0. 7L,R4 TART 

RO, (RA)+ Phat pOORESS CHARACTER? 
#0. TL+0.LG,R4 its THE re DONE? 

0. BRANCH IF NOT 

#] ,RO : MASK OCTAL 

“mn 

#0.URO, R4 GENERATE ADDRESS 

R2 SET FOUND FLAG 


SSR mw Heball Scntrme 


 ¢ HANDLER - OPEN INDEXED ON THE PC 

b.orPc: JSR TCLS 
HOV Re Re s CURRENT ADDRESS IN Re 
ASR ee, EOE On T TO CARRY 
BCS 0. ERR i ORROR TF BAD NUMSE 
ASL R2 yh Te 
TST (R2)+ T BY TWO 
MOV Re, RS 
IMP 0. Op2 iu FINISH UP 

: B HANDLER - SET AND REMOVE BREAKPOINTS 

6.BKPT: TST Re ; IF NO NUMBER T 
BEG 0. RALL  oeenove BREAKPOINT 
Bee 0.ERR Rite A opp 
ASL “RESTORE ONE BIT 
MOV RY, 0.ADR1 SET A BREAKPOINT 
BR 0.DCD 


SEQ 0166 


= 
~— 
— 


DRIVE oat PART 3 
28-JAN- 1:05 


GS508 ee 0S7410 0SS334 


ereerae 
T 





rbd 
Wes 
me 
I “1 
ie - js 
bo — — a) 
ss 
£ 


coos 
“ 
7 


ern 





Es 


PERARRE ibis tl ona loli aikrererepemorciccvis aes iiiyiaits ts 


R 


MACY11 27(1006) 31-JAN-77 18:30 PAGE 167 
TYPE ERROR ROUTINE 


0.RALL: pov 


? COMMAND DECODER - ODT11 


#0.TRTC,O.ADR1 ;CLEAR BREAKPOINT 
0.000 


: REGISTERS RO-RY NAY BE USED 
; REGISTER RS WILL BE CONSIDERED SAFE 
6.ERR: BIS #1 ,RS ‘a EVERYTHING 
ey t ourpures EP 
0.000: JSR 5:0.CRLS (LED # 
OOo: Gre Beate cons canes FR 
0.SCAN: JSR 5 ,0.GET i fe A CHAR RETURN IN 
sre OB eee i ROpPOE HATH FSH Wie 
CMP 8°7,RO COMPARE WITH ASCII 7 a 
Oe 
3 
Of iT 
ADD RO, RY ‘PACK THREE BITS IN RY 
Ane 6-SCAN Re He HE RAS ALAS 
GL: CLR ‘CLEAR INDEX 
0.LGLI: chee RO, 0, LOCH) he as CODES MATCH? 
Fic i 4 NDEX FOR NEX NEXT SEARCH 
CHP Ri, #0.CLGT ing THE SEARCH DONE 
a 8 Fer ine fee 
0.LGL2: ASL Ri “MULTIPLY BY TWO 
IMP 90.LGOR(R1) GO TO PROPER ROUTINE 
8.LGDR: 0.WRO ; / OPEN WORD 
0.CRET ; CARRIAGE RETURN CL 
get iE SIRT H ORES 
0:0P1 } <LF> MODIFY, CLOSE, OPEN NEXT 
0.ORPC ; © TED, INDEX - PC 
ce i i pens 
Se fb eee Weave soness 
8 EKPr : F eas 
0:PROC ; P PROCEED ; 
O.LGL = ’-0.LGDR sLGL MUST EQUAL 2X CHLGT ALWAYS 


+ PROCESS / - OPEN WORD 


6.wRO: TST R2 ;GET VALUE IF Re IS NON-ZERO 


SEQ 0167 






UNIBUS RK& DRIVE a al PART 3 
DZR6JD.P11 28-JAN-77 11:05 





zs 
S084 
3087 
$088 
$089 
$090 
$031 
$092 
$093 
$095 
$096 
ea ite fey 
1 
3100 004537 
91 
31 
91 
3104 
9105 
9106 
9107 OS6060 004737 057274 
$108 056064 005745 
3108 056066 000762 
$11 , 
9111 
114 
is Geeas dosste 
$116 056076 
$117 056102 
$118 056106 
: 056110 
beeliG 
fries 
ee 
1 
0561 
056132 
056136 





MACY11 27(1006) 31-JAN-77 18:30 PAGE 168 
TYPE ERROR ROUTINE 


BEQ 0.WROA 


8: BARB: 


oom eB, 


; PROCESS CARRIAGE RETURN 


: PROCESS t, OPEN PREVIOUS WORD 


b.pack: JSR «PC, 0. TCLS 
TST -( = (RS) 


} PROCESS 0, COMPUTE OFFSET 


6.0FST: ASR RS 


BCs O.ERR2 
MOV e , 
JSR 5,0:FTYP 
SUB RS, 
DEC RY 

¢ RY 

Y RY, RO 
JSR EA eeov 
mOY OREO 
ASR RO 
BCS 0 


SEARCHES - SNSK HAS THE MASK 
SMSK+2 HAS THE FWA 
SMSK+4 HAS THE LWA 


; SKIP OTHERWISE 


IS ST Rh ne 


;CLOSE LOCATION 
; CLOSE EVERYTHING 
;RETURN TO DECODER 


3 CLOSE ae CELL 


;G0 PROCESS IT 


;GENERATE NEW ADDRESS 
;G0 DO THE REST 


; OW_ORDER BIT 
: Cab CLOSED 
; TYPE ONE BLANK 
; AS A 

T OFFSET 
irvee'® BIT OFFSE 
;SAVE RY 
;NUMBER IN RO - WORD MODE 
;DIVIDE BY TWO F 
; BRANCH 
;NUMBER IN RO - BYTE MODE 
ALL DONE 


SEQ 0168 


B14 


MACY11 27(1006) 31-JAN-77 16:30 PAGE 169 
ERROR ROUTINE 


TYPE 





: 


SEQ 0169 


& DRIVE OTA TIC PART 3 
Pil 28-JAN-77 11:05 


CH 
AND RS ARE SAFE 


;1S THE RESULT A PROPER REL. BRANCH? 


5 2 

e. w 

fon eae - aS 
iba ep met, | ; 

= i 558 oo 2 one, 3 as & 

E gtheyby g 5 ae egepsenes. BEL? ois" og 
G Sxg8ESr ; GS fees, Ws*e,. 5.8 aA 2 
mE" Sok Be goat AtatWe Eas EAgEE oe 


& 


ot Bo Soc taapit tctall. 
th ZR SeC2 
ERY og® Ei eetmegy oeskl ES «+ Beton Pe 2x2 
Se M ew Re ITEM AE ee Cae tg tcp SS erence 


HBSPHEESE SSPE PSE NEO EY PeSHee= eesuoudee ete 


fe toe yt 


° o 


t PROCESS G - GO 


0.EFF1: 


ae bES 
Geeiseces eae eis os oe 
ecerreeerrrs iy vorryvererestuns yur Npsrrererrrs 


BOBR RHE SYST PPS PT RANAT RPT RASZSISSSSSBORRACRRRR RR SoBe oe DS 


a Seem Po Soe fom Pon Pree Jon Poa Pon Son Ben fom Soren on Semen oem Jon mm en Jem Bem fee fen Boe on Soe fe eee, oes eee, ees ees ees feo fee, fee, Poems eee eae ees ee See eae, eam Quam eam fees ea, fom ean eam ean po ean hon 
PEPPER PRAPAOP PAPA PAPP PMP PPPPPM AMM APO PPMP PMO PSPSPS PCO KK SKIS so 





+ 
" 





SEQ 0170 


C14 
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MACY11 27( 1006) 
TYPE ERROR ROUTINE 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 
28-JAN-77 11:05 


OZR6JD.P11 


S 2 5 
Beis gs St 
. : BS Ey ats 
= “ 5 ep mS Eee 
“ F. <& — se ee to G*54 Ered ws, S 
Bae gt Se ~ p» 82 83 & wt Seode~ & 
g So Bh eE € ov ee 5% ee BS 2 
Fd. See Z.o 86 og BO date yest sree 
SinpPSyi-loy 2 open “SER bepSeg YE c EEE. Bs mea 
enter. “ee te we tll outan® reat 
annie tammamn Wins 
£ 
Ee & y 5 = 
on are a5 «|S -.8 gewey & 
SR i en ee 
of Sic Peetacseecns BP E gonan, By og §gc-SaEsaae 
SESEE RS SS GIA == : Gcatcd SusaSc got Wo SocdGeca 
@ J PoB QR. 5. 2 2 2 @, 
Sgudsesseeaaaaaaaaaar fa hgkngssmost, ERyY santwahoe Sef 
> er} 
sa cfeg o:. Bey 3 
8 e 6 aE & sete & 
oOo °o oO O roenre re eemceenenee OC oO 


77776 

e 
0S5340 
176732 
177776 ~=0.PR1 
177776 0.Cl 
0S5322 
76574 


[8 ER ee Beh 
ee ee oe 
fe [ REGEEN jE 


Sees ec eee NAAN NATATIADAT RANA RAN 





D14 
31-JAN-77 18:30 PAGE 171 


SEQ 0171 


MACY11 27(1006) 
TYPE ERROR ROUTINE 


DIAGNOSTIC PART 3 


ORIVE 
28-JAN-77 11:05 


Pil 
Oeesee 


AWAY WHERE IT BELONGS 


INTS TO THE TRT 


0.BK3: 





@ ‘ 


TB Scaisc 











sERROR, NOTHING FOUND 
OUTPUT “BE FOR BAD ENTRY 


- tv: td ong 


; ay 


;CLEAR OUT ANY POSSIBLE FAKE T-BIT 


IO 2. OMG 


SeeeRiEhae 


oO. OF 


H2abdsaen 


: 


055322 


ee 
ae 


;SAVE TELETYPE STATUS, R4¥ IS SAFE 


; JUMP _IF REPEAT 
;RESET COUNT TO 1 
;ALLOW PROCEED 


;G0 TO DECODER 


; SAVE REGISTERS RO-R6 IN INTERNAL STACK 


0.B3: 


ee ee ed 


waeeent 


ieee =o 
tesuwae 


2 z 
& 


ee OG ed ed et ee eg 
QoO0AOO0000 


ROMP TP RRE SS 
Bie a a 


woceeertrs 


; SAVE TELETYPE STATUS 


*CLEAR ENABLE AND MAINTENANCE 
»<CR.LF> F RESTORING 
REAGy ON PRINTER 


AE SR 0 Gene ‘OVE : een 


ww a we 
eG 
Gccoutl a a 
3 

SSIS & in 
roe s oe 
i iw % 


mes 


- oecereerennaeenrent remem nomen 


2 
bs 


essassaess 
WONG U£Wh-O 


3 


mtn 
Hai 


ala 
at,y 
sal 


BE 


RRSRRIRSetea tae SoMURAGER 


gaanaans & 


<2 

~— 

~ 
Ea 


057026 
ee 
bere 
pe 70e2 
ees 
S707 
ae 

ub 
a 
ee 
beyia4 
057146 


er 
tF 


wae 


e 


R 
5 


004000 
177560 


a | 


Pat hee fe 
eo 


0S73S0 
0$73S1 


= 


057407 
000060 


ft a Pe pee 


Rass 


ie 





057407 
0$7212 


0S7226 


' 


IVE See ite PART 3 
28-JAN-77 11:05 


177560 


177560 
177564 
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TYPE ERROR ROUTINE sts 


BPL 4 
T 0.RCSR 
BE eal sae Reno eg iy eae BUSY 
TSTB  O.RCSR 
BPL 4 REROER 
O.RSE1: MOVB  0.CSR1,0.RCSR beast 
MOVB 0.CSR2,0.TCSR ; THE STATUS REGISTERS 
RTS RS 
: TYPE OUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE 
: WORD IS IN RO 
b.CADV: MOV RB, = ) ;SAVE Re 
MOV ’ BUF +6. RY BUFFER START ADDRESS 
MOV #°0,-(SP3 “CONSTANT ASCII 0 
0.SPC: MOV RO ; GET 
BAS OSkp Rouen joowent To eecit 
MOVB = Re, -(R4) :STORE IN SUPPER 
ASR RO iSHIFT THIS MESS 
RoR A : COREE WHOLE PLACES 
CMP RY, #0. BUF +1 ; DONE? 
ie 0. SP RO :GET YaST IT 
BBS C356 Ro .C VERT TO ASCII 
MOVB 7 (RY) sAND PUT’IT AWA 
MOV #0. BUF +6, R3 * LWA 
JSR 5,0.T TYPE WHOLE STRING OF CHARACTERS 
MOV (SP)+, "RESTORE Re 
RTS RS 
: GE TER ROUTINE 
: SEE RC TER INEU INPUT Rote’ to 
8.GET: TSTB  O.RCSR ;WAIT FOR 
BPL 4 : INPUT FROM KEYBOARD 
MOVE  0.RDB,RO GET A CHARACTER 
JSR S.0.FtYP *ECHO CHARACTER 
BIC #177600, RO *STRIP OFF PARITY FROM CHARACTER 
BEQ 0.GET IGNORE NULLS 
cP 840, RO >CHECK FOR SPACES 
CMPBOtsék’: FRO fer Rk FOR SEMI-COLON 
BEQ 0.G&T IGNORE THEM IF FOUND 
RTS RS 
GENERAL CHARACTER OUTPUT ROUTINE 
: ADORESS OF FIRST BYTE IN 
; ADDRESS OF LAST BYTE IN Ra, ” (R3)> (RY) 
A. TYPE: CMP R3,R4 ;CHECK FOR COMPLETION 
BLO 0. TYP1 : EXIT WHEN DONE 
MOVE (R4)+,RO GET A CHARACTER 
JSR S,0.F TYP “TYPE ONE CHARACTER 
BR 0! TYPE ‘LOOP UNTIL DONE 


UNTBUS RKb ORIVE DIAGNOSTIC PART 3 MACYI1_27(1006)_ 31-JAN-77 18:30 PAGE 173 SEQ 0173 
OZR6JD.P11 | 28-JAN-77 11:05 TYPE ERROR ROUTINE 
! TYPE ONLY ONE CHARACTER (CONTAINED IN RO) 


177564 d.FTYP: TSTB 0. TCSR :CHECK STATUS 
BPL “4 bWAIT UNTIL READY 


haooee Core RO, oi ee CHAR or TOBE FILLED? 


#44, -(SP) ‘YES, INIT THE COUNT 
atten 


. 


oo00044 
177564 0.TyP2: TSTB 9 
177566 cre : TOB GENERATE NULL FILLER 


aR 
4 





oO 
3 
iat) 


TST (SP)+ POP STACK 

O.TYP1: RTS RS 

* CLOSE WORD OR BYTE AND EXIT 

: UPON ENTERING, Re HAS NUMERIC FLAG, RY HAS CONTENTS 


O.TCLS: ASR RS iGfme Te ALREADY. CLOSED 


ce Se 
ae 


RS 
fer a NO NUMBER TYPED THERE IS 
Beg 0.CLS1 i SGHANGE WHE OPEN CELL 
1 boben? 0.CLS1 ars peor 
2 rig 8: Fs 1S ~(SP) pep EXTRA CELL FROM STACK | 
14 137 OSS616 IMP 0.ERR AND SCREAM BLOODY MURDER : 


 O.CRLF - TYPE <CR,LF> 
 OLCRLS - TYPE <CR'LFD# 


SuGhOaER Seid UIA TACOMNDRRNIER EB au oulsocnSORCPEEOREEORS 
sighs 


057300 o12703 057355 6. CRLF: HOV #0.CR+1,R3 ;LWA <CR,LF> 
057328 O1e703 057356 0.CRLS: NOV #0. CR+2R3 LWA <CR,LF># 
fer aae ta pes ar3 ae Oe nee 5,0. TYPE TYPE SOMETHING 
057342 000205 RTS RS 
057344 000000 6.xxx: .WORD 0 ; TEMPORARY STORAGE 
057346 000 0.7: “BYTE 0 ;  T-BIT FLAG 
057347 000 0:P: "BYTE 0 s PROCEED FLAG = O IF PROCEED NOT ALLOWED 
= | IF PROCEED ALLOWED 
057350 000 0.CSRI: .BYTE 0 “SAVE CELL - R clsh 
057351 000 0.CSR2: .BYTE 0 “SAVE CELL - T C/SR 
r EVEN 
057352 o4250e2 0.80 “FORD “BE 
057354 015 6.cR: .BYTE O15 ;  <CR> 
beraee SCS a 
W410 , ‘ 
9411 057357 057 6.LGCH: .BYTE °/ ee 
9412 057360 01s “BYTE O15 : CARRIAGE RETURN 


2222222 
OC NICUT-£ 


ERPeLo AMBER AER TER: coe HRS ROS SEARO IORO 


MACY11 27(1006) 31-JAN-77 18:30 PAGE 174 SEQ 0174 
TYPE E 


2 
Ba 
se 
: 
o° 

z 





RROR ROUTINE 
1 O44 BY '§ : § 
107 BY ’ . § 
Ag “BY Ole : <LF> 
1 BY , . i 
057385 136 -BYTE 't : ¢ 
117 .BYTE '0 : 0 
097357 127 .BYTE Wd : Wl 
105 “BYTE 'E : £€ 
07371 102 ‘BYTE 'B : @B 
120 “BYTE =’ : P 
000014 O.CLGT = .-0.LGCH ; TABLE LENGTH 
057373 123 6.1L: .BYTE °’S :DO 1 
057374 120 .BYTE 'P : NOT 2 
Bee ee 
T 0 ; THE 4 
057377 000 BYTE 0 ‘ORDER =«S 
057400 102 BYTE ’B : 6 
000006 O.L = .70.TL 
057401 6. BUF: 36 CHAR. BUFFER WITH 
057407 5 = +6 
057407 040 .BYTE ; TRAILING BLANK 
EVEN 
057410 000003 O.TRTC: TRT TRACE TRAP PROTOTYPE 
*THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL 
055302 : = 0.0DT-40 
0.URO: O -USER RO 
0 ¢ Rl 
0 ; Re 
0 : R3 
0 : RY 
0 : RS 
0.USP: O ;USER SP 
000¢ 9.URC: 0 i USER PC 
t 7 . 
; ! 8: PRL: 3 i ORF PRIORITY 
-MSK: O : 
055330 000000 0 “LOW LIMIT 
055332 000000 0 *HIGH LIMIT 
: BREAK POINT LISTS, ADR1 = ADDRESS OF BREAKPOINT,CT = COUNT, 
; UIN = CONTENTS 
055334 000000 b.ADRI: O 
055336 000000 0.cT: O 
055340 000000 O.UIN: O 
000001 END 


| 








UNIBUS RK& DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) 31-JAN-77 18:30 PAGE 176 SEG 0175 
DZR6JD.P11 28-JAN-77 11:05 CROSS REFERENCE TABLE -- USER SYMBOLS 
ABRSE 1822 1863 18878 
' 1 s 1865 
; livie 
[aos 1837 
ACTLI 20718 3017% 
ADOND = 822 1867 
ln: ! 
10= l 
ADDN 1 1= 1878 
pat 18793 
1 1880 
igs ieee 
= 869 
= 870 
ADOWH = 871 
ADDS : B75 
= 
ROOW7 = 874 
= 
a 
T= 
ADEVA = 
ein 
= 
AF RTAL= 
AMADOR | = 


He 


i 


PRP OBER TOO TEES Bolte 


9 6 6 65 6D 60 69 6 ED 6D 6m Ge EB En On Em GOED ED ED EN ENED wD DED 
wo 


fe 0 bb be = bb bP bb bb 0 bb bh Bb bb = bb bb be be bh Bp = be pee 


RRRRSRRASASAAR NARA SARA ON OR 


6 66178 

pass 64 6573 66158 
eS =: 148 

6440 6575 66168 
e 

20068 507 5327 S354 
18ee 1829 

1Bee = 1836 

1822 1861 

1822 1862 

19968 3025* 6099 


SEQ 0176 


PAGE 177 


CROSS REFERENCE TABLE -- USER SYMBOLS 


14 


31-JAN-77 18:30 


MACY11 27(1006) 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 
28-JAN-77 11:05 


OZR6JD.P11 


4938 6005 
6313 
40S9 


3951 
4480 4574 
4757 


4d 


4884 
6387 
1263 S815 
3126 
53818 


6043 
4417 
4651 


4797 
4791 4876 
#399 6342 
1249 
1250 


le42 

43 

44 
3345S 

3921 

e120 
60348 
4384 
4592 


4736 
4617 
1838 
1248 
1235 
le 

5811 
1241 
1228 
55 ¢ 
1245 
3341 
a1 

5082 
4331 
4435 


~™ w bal ae] tw wr - ~ o 

uw WM Meum nuns Uae aa Pores Ro Pa 

wo wn cucucucucu Cucucucuty o cum 
= > a et Se heer aun hemi rT mn rw Tr 
rt o 
OS & 
r ™ 
tt ot ot te att tt Tr rw T 


4563 
4465 
eel 
208 
203 
196 
240 
214 
1 
218 
4863 
3333 
5790 S836 
Liat 
557 


4471 
3136 
i33 
207 
194 
195 
180 
213 
188 
204 
4779 
5909 
3315 
ann 
219 
4191 
4954 
4306 


4407 
1168 2061 
34 

93 

78 

79 

64 

8S 

5 

a 

90 

808 

gi95 

5788 


ag 


o 4 
O hBoso7 BNR Sa 
T den ed NM tt cu-o 
Dh HY HI tote w 


4321 
1149 


Poet aca Ac SI tel 


ea meg my ed od hh ot et 
Na) td ed ad Oe ee ed oe 


x 
z 

Bx SOYSSRRR AT AMIRMENIEM A BESS 

r Ya r 


fad Bi 3a oe = 
wo Ed ed a ed a ed rr r — orw wo w 
ru = 
— _ md _ 
LGU UUGEA ea Sere a Aeterna care teat ee hae 


Lae 


EBcoecscBEcEts: oeiciccs! Ease a Clases 


Es ccceeReeeee Scere MG Saas bend BH BES 





J14 
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OZR6JD.P11  28-JAN-77 11:05 CROSS REFERENCE TABLE -- USER SYMBOLS 
CLRFLG y 7 51338 
be = Boi o8d teh 
RRO Cg Boda’ Shs Rtas cae 7 ? - 7304 7314 7323 «#7330 7338 «#7343 °«7348 
2 ee > 5 7369 «7398-S «7403s 7S 7HDSH? Fuad 
me ho Re Se he my Re Re Re Rt Re 
He} eS ame le = SR 9 SR 
te es ae eee Foxe | Feat 5 
7868 7875 7880 7887 7902 «7909°~=C«s« 7927 8222 g242 8279 
8292 8307 «8569 «s«aS7S—s«S 78 
CRLF = 000200 $752 6455S Bua 
CTO = OO4O00 11238 © §S01 
CYL -oo1442 19988 
001400 19168 40S2 S632% Sb33e S634* S63S* S636s S637" S6SS* S6Sbx SéS7# S&See SESox 
CYLDIF 001376 1915@ Sblb¥ S618 Sb19% * 5621s 2x S623 S625" Sé¥2x S643 So44e SouSs 
Seuee | SE47% EER se S7i1S7is S718 
DaTag O01524 sie 4270 43234406 4619-4783 «S««4883.—=Sis«#NHOD 
DATAL 001830 19738 4374 «= 4N70.—s«SS7—s«s22—s«N73S-—s=s79G-Ss«4B7B.C=«Q 
CK = 100000 1ig4e 
OCLO = 000020 11728 
poree = 1977520 et 7a? 2959 
BDPCH ® 30138 3201 3388 
DOT. = 000400 11768 
DUMP 005516 20698 29808 5133 
Brio | eNeue EE CR CE RS CS CS CS CE Eo 
5234 «| Sheq | (5480 sin SATE Stag sha, SG, SGdt Shee SGP 
5476 2481 2486 249] 36 | 3506 2511 2516 2521 3531 Su 
Sean Set CSeakS Sat see SB a SS ee 
i 666 er 1 5706 5791 Sede S751 Bree S781 
OF12 954532 Sone Sait | Seta BPaiGe 
OFIS  OS4S5E oe EMM] Bye ETE 287 7SN 
FI?  OSHE7B ere Bre Pi 
OF20  Oeub22 5356 8 
OF21  OS4e4G 5297 2222 2227 38 2243 2g 2 22968 2273. «2305-2310 2331S 2336 
5341 2351 «38H 03]. Ss237H «S381 «= B39] 2398 = BOI 542] uBR C3] 
ok a a 5776 3431 
DF22 702 Seve «Boe 
OF23 -OBN73E 68198 
OFS 33 2581 2591 
OFY ag esa 25% 7174 
BeBe Sot Beate 
OHI 8103 ells 2121 aie? 21322198 aiyy 2150 gosh 219 23H 2783 «B33 
8708 1 799 #8760 8760 68772 8780 8791 8806 682i 
OH11 1143 2384 2394 «2389S BOY ss 78# 
Dale 1217 5409 «3758 
OHI 5439 ’ 
OH1S 081333 5469 2664 ~—s«3898 


SEQ 0178 


K14 
31-JAN-77 18:30 PAGE 179 


CROSS REFERENCE TABLE -- USER SYMBOLS 


MACY11 27(1006) 


DRIVE DIAGNOSTIC PART 3 
28-JAN-77 11:05 


6 
1 


UNITBUS 


OZR6JD.P1 


8829 
8831 


: : 
3 : 
gE ££ ¢ 
Eo a ¢ 
fe BEE a 
Pack E Ros: kat 

Piece EE ee est : 

EE SS Et & & & g§ 
ERE OH Sa Ge & Gi mi § 
pices cP EE ECaGCREE OR He be 8 
SR ree Rane Eee cone aaeee Te cate ecw eee EGS be § 2 
Re ASG Sans CUS Me uns Argo PE See 


ea ee 
PEPErseTeesseeeeerererertes testes tite es ere eee ee La 


L14 





UNIBUS RK& DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) 31-JAN-77 18:30 PAGE 180 SEQ 0179 
DZR6JD.P11  28-JAN-77 11:05 CROSS REFERENCE TABLE -- USER SYMBOLS 
peat 001532 19748 
Be ne 
2 11688 3230 3323 
DRDY = 11758 
DRIVS 50738 431318 3138 3155S  3177% 3203 3220 3311" 3377 S002 S035 Sie 
DRIVO ® 3028 3133 3179 £3279 ~#5i71 
paiva : 
I ¢ 
DRIVS e0B18 
Brive Boe spas 
DRI Ve 005544 20848 
DRI 208s 
oe net 
= 
DRVMSK= even 11308 31% 32% 
DRVPTR 001362 19068 3028% 3382  3392% 
DSC = O40000 11798 
DSWR = 177570 Se48 (17% 2932 
DTE = 010000 11618 
DTYE = OO0040 11548 
DT 053764 2110 «2116. Ss«a2l22-Ss«ia2BeSsi«‘«139)—s'—«‘ia39)Ss«iHS)~=Ss1S1)0=S ss ISG )=Ss 1GBSC‘éRkdL72C<“‘<i«é‘i kG 
2181 218 2191 219 e201 e211 2232 2252 2257 2277 2289 2294 
2299314 )=Ss«32D—sCi#SSsi38Si70s28S)~—Ss«H10 2465 2470 2475 2480 
a ee spun. «Sid: Spa CSPSOSeSR See sees, BeeD 
2610 1 2630 2635 2640 2645 2650 
2655 2660 2665 2670 2700 2705 2715 2725 2730 2745 2750 
eros 7b, evbs eve eves e780 2800 2805 2810 22815 2820 2870 
OT13 = oS4142 2206 2221 2225 2237 e242 2247 2262 2267 2272 2 2330 2335 
2340 2350 2355 2360 2375 2380 2390 2395 2405 e420 e425 2430 
2435 40 2535S) siSHS)~=—siSSO—Os«eSSS~—Ss« BOD 2690 2695 2830 2835 
2840 86608 
DT14 © oS4e22 2675 42s 86718 
DTIS  O543le 86838 
DT3 054024 2580 2585S 2590 2595 86438 
OT 054072 2770 86518 
0T9 OSH076 e328 86528 
D.ACLO= 000100 loops «48392 4820 4826 4847 
D.BRHM= 000100 else sue 3571 3625 4043 4120 4300 4343 43939 4429 #+4S8H 4464S 4751 
D.CART= 000400 12178 sou qe00 3591 3625 4043 4120 4300 4343 4399 4429 4S8& 4645S 
4751 4907-4966 
D.DOT = 000400 12038 
D-.DOOR= 000200 1el68 3540 3625 4043 4120 4300 4343 4393 44e9 4586 4464S 4751 4827 
D.DRA = 000040 i208 3544 3569 3623 4O4l 4118 4298 4341 4391 4H27 4584 4643 4749 
4905S 4964 
D.ORDY= 000200 iedee 3623 3937 4O4l 4118 4298 4341 4391 4H27 4S84 4643 4749 4905 
D.DROT= 020000 12358 
B-FLT = Quen 15038 aBSe apa 4a92 daze —_ 
D.FORM= 001000 1204 
D.FD = 12198 
D.HOFL= 1243 


14 





UNIBUS DI TIC PART 3 MACY11 27(1006) 31-JAN-77 18:30 PAGE 181 SEQ 0180 
DZR6JD.P1 ARO isos GROSS REFERENCE TABLE -- USER SYMBOLS 
i 12148 354% #3571 5737 
. IDRE= 12278 
eA 12498 
cL lezie 5755 
.D = lew4e 
D.NNOV= 1e468 
D.tOr = 12308 4031 4O42 
-OFF = 12058 
D.PaR = 001 12318 3685 
-PIP = 020 loose 4825 
BRE = boo {558 4827 
b-Bry = 020000 teee8 6113 
D.SECT= Q00020 1eags 
. = 
B: eine 1 iss 3565 3605 3623 3978 4O4l #4118 #4298 4341 4391 427 +4584 4643 
D.SPLS= 010000 leave WeSe dace "gat . 
: 0 r 4] 4 434 4393 4429 4586 4464S 4751 4907 4966 
B: aop*= Boones 13st Sse bus 305 was EBeSCeMESCEL «=e? ag? 
D.SUNS= 040000 12508 
D.TIB = 12468 
arts = t : 
D.W = 000100 12018 3458 3472 3544 3569 3619 3642 #3761 3800 39% ### 3958 #4008 4013 
4065 4118 4298 4341 4391 4427 4584 4643 4749 +4825 4@59 4905S 4964 
B-tGhT= pootae iSube 
D.WLE = OO4000 12338 4387 4392 4500 
D.WAL = Oor4000 12068 4223 4230 4369 4391 4453 4691 4699 
pakt = : tious 
EGH = popI00 tlees 
EMTVEC= 000030 10738 2916  2917% 
EMI o44e41 5197 79098 
EMiO oveD1s ela ra7ee 
Ents Baetog ae eis ie 2174 2184 #2508 2513 2518 2538 2563 213 2643 2723 2758 
EM13. o4Se202 2189 2343 2493 2568 2618 79958 
EM14 45224 2280 79988 
ERLE peses aK 2292 ose 
Ena BNESeT soy S2egS Bae gaae case StI Sees «5053s Sepa bole 
aut Oise gobs e553, 2348 460 23S8)2Oss«sa2373:i‘ia8Cti‘ikeSCSHBSsCiBB)Oss233—Ss«é8ODL718v 
3 4 2270 2403 2433 25 2693 2838 8020s 
Enst ea Stig cI th 2209 5328 2763 2798 2873 §0ea8 
EM23 paeere 2383 «2438 «= 80328 
Enoe | ueeos Sqo8 «BONE 
Enos 4 DMEEES 57e3 Ss Bocoe 
EMe7 045715 2488 2528 2573 s0Sbs 


N14 


SEQ 0181 
3098% 
4749# 


3042%  3080% 
4YS84% 4643# 


3035 
4ue7e 
8683 


, wy 
zu G2 Bx 
a ce ue, 
8 Be 52 
= 2 ~ 

ae : Hs 
ge ; ? a2 ae 
= Rg q ae 3a 
OR ee a RS en 
é 2s S23 
ee ESS Oo RES eRe Sete eee ener eC 
a 

we 

&S 


UNI 


P 


5, li EG 


SEs BatOEN PEP EDPE obOPRND RT aBiDRT icTC Ce oei EE ie 


UNTBUS RK& DRIVE DIAGNOSTIC PART 3 
OZR6JD.P11 77 11:05 


E.Al 
E.Re 


8 
“+ 
D 


Hii 


BS 


a 


8 
_ 
wl 
- 
o 


—s 
is 
cas 


saps 


~ 
fae 


sty) 
_ 


fn Sh hie! & 


ne 


BB 


oO 
8 
io 


RSS § BeRG 


Saeg © 
SR8c 


Br 


3571# 
# 
4302% 


; ioe 
4042s 
S416# 
4O44# 


S420# 
432% 


4Y433% 


8648 
8637 


won ae N- Pie 


4120% 


a 


tw 183 


2%, 


4299# 
ACT 
8660 

4o4Be 
46498 


8667 
8654 


4349 


449% 
8683 

4968 
4428 
4430% 


4969% 
4970 


7279 


3709 


S422 
S426 


2 


4419 


464S# 
S410 


4644s 
4646# 
S4e4s 


' §428# 


3782 
4571 
6108 


2 
bs 
a 
8 


DZREID.P11 

HOTAB ODISSY 
ee BR 
+ tate 
fen | Spends 
HAR «© OOSHae 
Re OOS 
HARS © OOSH3E 
HOLD O24SSE 
HPAT 00s44e2 
HPEND 008374 
HOS OOS440 
HT. = 000011 
HVRC = OOOMOO 
Hac | COOSHIP 
HZ —-OD14O4 
H.AO -ODSHSE- 
H:Al  OOBMES 
HA? OOSHEE 
HAS © OOSH72 
H:B0  OOSH6D 
H:B1  OOS4e4 
H7B2 OOS470 
H783 -OOSH74 
TORE = OO2000 
Ie = 000100 
LF = 000001 
INTER 031070 
TOTVEC= 000020 
IR = 000100 
LELKF ~ 005550 
CCVEC 001360 
(fF = OO0012 
LIMERR 001544 
(KS 001346 
[PCNT 001466 
CPTIM 001470 
moe = Coron 

= 

MOSERR 001546 
MEMBAS= 172100 
MEMERR 031026 





DIAGNOST 


VE 
28-JAN-77 11:08 


IC PART 3 MACY11 27(1006) 31-JAN-77 

l: CROSS REFERENCE TABLE -- USE 
i : 4e4e 4711 5770 

19668 a275e S773% S774# # #+%‘S$77S5# # 5S77b# 
19648 42378 Ye44e 42e4s 424R% 4e60# 
ove. oil ces 7. . 

Ho Sot SG Sc Ba 
ecess S2e93% #8637 BE4S 8654 4 
e0ebs )§8=— 3198 3235 3423 3458 34 
3761 3800 39337 346 3358 
4691 4699 4859 S270% 5S275# 
ie 6113 a oot 8654 ase} 
2276 S604 5632 8637 
SeS6 S260 See4e 5536 
e0ess $2e97% 8640 8648 8657 8667 
19988 Meche 6101% 
ecess Seste 8640 8648 8657 8667 
liste 6453 6494 
20178 Sesbe 8640 8648 8657 8667 
Bt Bcc ao ys 
eO4is S453 SS64# #8660 8674 8686 
20438 S554" S642 8674 8686 
eo4se 8 SS44# 
2040s S443 SS74# 8660 8674 8686 
eO4es S463 SS65* 8660 8674 8686 
eo4v4s SS55# SESS 8674 8686 
eO46s SS4S# S665 5675 
11598 
11188 
11498 
$239 61998 
10718 2914# 2915% 

11368 

20878  3033% 

ine e4ag 494 7289 72H 7299 
7352 oieg 364 7370 7377 lane 
7427 7429 7434 7439 7443 

7489 744 7500 7507 7516 7518 
7586 7532 75% 7605 14 7622 
7675 7680 7687 7697 7 7716 
7780 7787 7793 7798 7805 7810 
7868 7875 7880 7887 7895 
7yF 8307 8569 8575 8578 

18938 3032 5957 5978s 

19508 

19518 

11898 

11398 3226 3319 S064 5510 

19828 

18998 2953 2962 

2956 61858 


18:30 PAGE 184 
R SYMBOLS 


S764 
4706% 


8654 
8689 
3565 
4013 
5554 
8689 
4820 
8654 
8692 
8692 


8692 


4714 
8676 
3605 
4223 
5573 


5271# 
8676 





4727% 


SEQ 0183 


4728 


3689 
44S3 
$755 
S545 


D1S 
31-JAN-77 18:30 PAGE 185 


SEQ 0184 


CROSS REFERENCE TABLE -- USER SYMBOLS 


MACY11 27(1006) 


DRIVE DIAGNOSTIC PART 3 
28-JAN-77 11:05 


6 
Pll 


e9st# 2957% 


g §isasioas aay 


mp e 

an nd 

Be , 

=e a 

or r 

a 33 
5 a BE 
rf 2) OMS ee 
OE aa 8 gg = 2 gece 
3 : ® 


CSc GonsvODDeASODDOMeeeeedes Cedbscczecctceactilt 
EEE 


id HetoesiacieiaiaiemUNeOIIO TIEN 


SEQ 0185 


ELS 
31-JAN-77 18:30 PAGE 186 


CROSS REFERENCE TABLE -- USER SYMBOLS 


MACY11 27(1006) 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 
28-JAN-77 11:05 


OZR6JD.P11 


4919 4978 78628 
3710 3754 3785 3837 3849 3857 3869 3875 
9237* 9252 9269 94608 


78418 
4657 
3328 
9199% 


3609 78208 
4841 
4598 
3325 
5004 
9198 


SSS Re aa aa SS eee e tag ga uoR cents f= Nate 


_ HERPES DE USTREDETSaE coecneeeseeh Suesenaatones 
ie GRionceEEORMSS ty obese 


F1S 
31-JAN-77 18:30 PAGE 187 


SEG 0186 


CROSS REFERENCE TABLE -- USER SYMBOLS 


MACY11_ 27( 1006) 


DRIVE DIAGNOSTIC 
28-JAN-77 11:05 


6 
1 


RK 
Pl 


3 


: : 

; ee. : 

Pb eee pea 

Po 9 Fh g 4 : OB 
Mate oa ; #3 
SSE¢pme sel we ts twee ft 
SUUSSESRRESERMDNRETS SasSReNG a HRERSeAR be Sopea saints 
Stina dea es c i ce Screens sna eT CT rh 


did ab UESbdbuonucsasdS aL uasecseUAsaanuascaias CSsleses 


POM SSM TL Maes S are MCL REE aw We Pry ts 


G15 
31-JAN-77 18:30 PAGE 188 


CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 0187 


MACY11_ 27(1006) 


VE DIAGNOSTIC PART 3 
28-JAN-77 11:05 


a: & 


Z 


gaat 


; 
: - g 
: gE : 

; SEE E § a ; 

5 fake BES ae if ; 
2 Pes eee zg 8 
Se Me ae an er eee eS | 
oes + MOM CMD mr a 


LECRU Rani -FRS Seite nat fe aeeaniae SS Me Ce ea Seta 





ee eae ae 


Sokobiss Bets SP PaanceMMbetG TK. 88 fis steno, 


SGOSSSSCOSSCOCCOCOCOOCOSOO OOOO CCOOOCOOOOCOOSCCO 2 Zee 


UNIBUS RK& oy orncugsT TC PART 3 MACY11 27(1006) _31-JAN-77 18:30 PAGE 189 SEG 0188 
OZR6JD.P11 -JAN-77 11:05 CROSS REFERENCE TABLE -- USER SYMBOLS 
PR1 = QOO04O 10018 
PRe = 000100 10028 
Pay = pooace 10048 
PRS = 000240 100Se 1889 
PR& = 000300 10068 3048 
PR7 = 000340 10078 2951 2957 6229 6230 
PS = 177776 9808 981 
pace. Ope rit 
aah = 000024 10728 2920% 2921% 6219% 6228% 6229% 
RC 026670 S478 56558 
RCYLD 026616 5475 Sé4e8 i 
RDCTLA doreue oeeoe ne ‘*% 
ROCYLD Oeb462 S6148 5710 S714 5717 
RDDATA= 000021 lillie 4109 
ROMEAD= O000eS tise 
poe? = LONE err B30y Saas 
i A (nel telatae ans 
RDY = 000200 11198 S2S2 Seb6 
eects HY HBS senso 
ERD SoeoEs Ere 56758 
RHTAB 001760 1 S866 S868 5873 S876 8652 
RKASOF= 000016 10908 3089 5291 5327 
RKBA = 000004 108S8 3085S 4103% 4144# 4162% Ye42e2e 4270% 43208 j4374* j%4Y4Obe 4Y467% 470% 4557% 
* 366 28134 4622% 4711% 4735% 4793% 4796% 4878% 4883% #4887 940+ 
RKCS1 = 000000 r} 7% # & 7% é * 3708 
OG: Suds ede Secee 798 sigs 3378 ETE BREE BBE RSE CRE 
4061% 4109% 44182% 4249s 4293% 4326% 4367# $4378% 4Y4Hlex 447S# 9  4628% 
4717% 47398 po ygSex 48S4e 4e90% 4949s Se66 * 
SS37% SS4O0e S547% %$%SSSO# 5557% SS60% 5567%  5SS69# 7% 6102% 6104 6120% 61l2e% 
RKCS2 = 000010 10878 3083 3163% 3164 3188% 3284  3288% 3636% 3710 3748% 3754 
3837 3849 3857 3875 3923 4060% 4e7l* 4321% %437S5* 4407% 
4471% 4S63% 4462e3% 4736% ##4797% %$|.Y8S3% 4884x 4944e  S0S9# Sess SSe4*  S5538% 
ss4ex SoS8# i 5SS68% * 6103% 6121% 
RKDA = OOO0006 10868 3085 4105 44146% 44164* 4e4S# 4e68% 4324% 4377% j%4Y4l10% 473% (+44YS33% 4S38% 
iaas" 4ouy 4S6S# * 4611% 44615® 4616 4714% 4799% 4886% 4928% 4932% 4936% 
RKDB = 000024 10928 sat 335 4421 4578 4637 4499 4959 
nae s ionie ime 30390 40218 j4107% $j.4Y474*e $=$§}44S67* \4Y“626% 4738% #44800% 4essx 44947% S292 
ee oe 
1 = 00002E d 8 08, 2i# 3538% 3589% 3617% 3683% 5293 $333% 5338%  S358* *  §539% 
S4 5 S9i# S60ee S614* S630% 5735% 5753% 6111% 
RKMR2 = 000034 10948 3093 5270 275 S294 
RKMR3 = 000036 109S¢ 3094 5271 5276 $295 


: 
g 
& 
: 
8 


UNTBUS aH DRIVE DIAGNOSTIC PART 3 
OZR6JD.P 


il 
Be 
=“ 


i 
See! 


SRTIAB 002164 
= 177776 
STACK = 001100 
ST 010060 
START] O10466 
S = 177774 
030374 

STOP1 030376 
ST. tenes 
ST 10600 
ST4 010632 
STs 010656 
026332 


4 


BREREE 8zEE 
Bees: Ges 


11 


& 


28-JAN-77 11: 


Shee 


Sere ayer 
ae E 


Reps igete 


foro 
mw 


3020# 
4BaS* 


288s 
3673 


88 
he 
~ 
s s 


BegaD 


a | 
30 


Baan 23 


B 


[7 
228 
~~ 
two 
oe 


2 
2 


fae BE 


» 
A 


pnael 7410082 TAL 


S231# 


esaz* 


sft 


72838 


4287% 
S667# 
5889 
3749 
S184# 


89098 


8971% 
3073 


6740 


5238 


42728 


5419 
5586 


4288 
S668 
5890# 


3780 
S204 


9194# 
3l2e 
3973 


1-JAN-77 
E -- USER SYMBOLS 


8:30 PAGE 190 


43228 43768 4Y44O8% #4472% 


S423 S427 59938 


4324 4377 4410 S604* 
S669% 5S670% #5687 5691 
5891# 


5060 S525 S540 5550 


92e20% Jeeee 924% 
3182 3277 3282 3373 
4094 4209 4675 4999 


4S64% 


5605* 


5634 


5560 


3413 
5029 


3675 
4178 
ess 


5459 
6387 


4624 


5606* 
5860# 


5569 


3453 
5488 


3796 
4214 
4869 


S469 
6399 


SEQ 0189 


4737 


Bees 


3485 
6231 


6157 
6740 





UNIBUS RKE DRI 
OZR6JD.P11 
Snes 
= 
SWO6 = 000100 
SWO7 = 000200 
ee = UU A 
= a 
1 = aa 
aio : DONE ts 
aie = 010000 
= 020000 
SWi4 = 040000 
See 
= 10 
SH Os 
SWS 86 = OOOONO 
a8 = 000100 
= 000200 
SWB 20 = OOO4O0 
SWS = 001000 
TBITVE= 000014 
TEMP1 OOS444 
TEMPe OO0S446 
TEMPS OOS4SO 
TEMP4Y o0S4S2 
TEMPS OOS4S4 
Tine 1412 
TIMI 001456 
TIM2 001460 
TIM3 001462 
TIE | Bevis 
ThvEE = 
TOCYL 1366 
TPVEC = 000064 
TRAPPC 001354 
TRAPVE= 
TRT = 
TRTIVEC= 000014 
TeTRIN Be47M 
TSTl 011042 
TST10 §©6012756 
TST11 013634 
TSTle 014504 


BA 


DIAGNOSTIC PART 3 
JAN-77 11:05 
10218 1031 
10208 1030 
10198 1029 
10188 1028 
10178 1027 
10168 1026 
10348 
10158 
10148 
10138 98902 
10l2e8 6157 
10ll@ 6170 
10108 
10338 
10328 
10318 
1be98 
10288 
10278 
10268 5439 
sees 1698 
83s 
4027% #40628 
4718% 474O0# 
S424 ee 
# 
* 2 
20328 
S742% 
20338 
20348 4102% 
sore aie" 
1 9 ead, 
194S¢8 
19468 
19478 
19488 
2977 O14 
te 6717% 
19118 4235 
4800 4888 
10768 
19018 6186 
igre 2918% 
38 9438 
10698 
4284 59028 
3496 3655 
3049 30718 
35168 
36718 


MACY11 27( 1006 
CROSS REFERENCE 
8844 
SYyq S459 
185% & 
FY 
4110% 4183 
4B0e% 4eSS# 
aos" S404 
28 S430# 
S697# *% 
6107% 123% 
16% 3917 
5$792% 
4137 41S7% 
4103 gy 


3704 


4494s 


53058 


4495 


6126 


4567 


31-JAN-77 4 :30 PAGE 191 
TABLE -- USER SYMBOLS 


4626 


4704% 


4730% 


4738 


476S* 


SEQ 0190 


4766 


UNTBUS RK6& DRIVE DIAGNOSTIC PART 3 MACY11_ 27(1006) 31-JAN-77 18:30 PAGE 192 SEQ 0191 
OZR6JD.P11 28-JAN-77 11:05 CROSS REFERENCE TABLE -- USER SYMBOLS 


TST13 O14762 3870 3876 38958 
TST14 =O 39718 
T1S 1 % 
Tg 64 4 42078 
T 1 s 
ll2l 3039 31208 
TS ° 023416 49978 : 
Tei, Brizee Sie ce 
012306 3305 33718 
TSTS O12440 34118 
TST6 ©: OO 2576 3416 34518 
TST? OL ee : 34838 
= 104401 i e998 ©4=és«3000-—s«—‘«jkOS§©s«i330SG)Si‘«#8kSCtié‘«KMNODC(i«éi‘é8L7SSC‘é8POSSCitiCMHGSC‘<«ié‘ézzTOOCGQD 
art cBq ag? a8 EOL Zid i |B dee 
3698 3699 3715 3716 3719 3720 3721 #« 3727 3774 3793 ©3802 
3803 3806 3807 3827 3808 3832 3833 3842 3843 #3853 3854 3862 3863 
3877 3878 3907 3931 3980 3998 4003 4004 
4WiS3) 4171s uj 4217 a3i6 q33e en |e ko ic ce 
444g = 44D His? 44S WHE 4S04 4508 4513-4518 439-4523 HSe8 898 4657 
ce ee Sl ee ey SS ER 
mi IPs 
6909 Ebes 6918 6 6 6929 6933 bare 7001 7141 
pes, Beco 20? «batt ae b3 CBa>a «seas bees «Sseso see B89 
TYPERR 0S4772 6389 88438 
TYPOC = 1O¥HGe 6803 72708 8876 | 
TYPOS = 1oW03 314 3208 3049 «33970 s«3724«=s«3771)~=S's«3790=S's«S07S)~—Ss—«‘«sS38H)—s«élb2)Ssi«iG2O7~—s 72718 
T.A2 = 1 20618 404 4307 «435044 4593 4652447584914 )=Ss«4973—Sts«CSH'79 
TB = ® 4047 4307 4350 4436 4593 4“6S2 4758 4914 #4973 S476 
Ti = Boies foe 
T10 001426 8s 3 3 3190 3285 93 3750 3766 1 3954 
2383 4483 wees yess 60s«iSS26)=Sfsi«‘<*SSS4—~Stés—‘“*SSS—~Cié“‘“SSLSsC«édSS700.—<Cté=«*S'S1’? 6107 6116 
T100 ©. 001434 19948 3987 6092 
TSO 00 14130 ise 4183 
Tepe0 0014 19958 4458 Sé8S 5709 
T50000 001440 19368 3920 4027 #4110 4187 #\4eSO 4275 4327 #44379 #4413 #4476 4S70 4629 
COT. aati 4718 4740 4785 4802 4891 4950 
UNLD 00S37E Bt ste 336) 3614% 3646% 3941% 3991% 3993% 4824*x 48S1*¥ SO79x Sos4*  SOSbs 
UNLOAD= 000007 11068 3492 3651 
UNS = 040000 11638 
UPE = fhennor 11438 
uce = DHODER tia4s 4333 ««4419.««S76 «4635S? 
WOCNT 001522 19698 
Wl 001502 19588 433S* 4421% 4S78% 4637% 4e99% 4958% 8643 
woe 001504 19598 4323% 4409% 4S66* 4625* 4887% 494Ge 8643 
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4378 4475 4739 4801 
4717 
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pee a ao be 
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Rin £ 
Se st we 
—- £ £ 
= R ? 
- wo 
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6950 
18638 3019% 3081 S2is#  S2i7# 


001 
SRS 001264 
SBDADR 001122 17888 
SBDOAT 001125 17908 
SL 001200 1gi4e 6382 6415 674% 6943 
SCDMI O01 18658 
SCOMS 001272 18668 
Sienc Gaeaee 6460 64708 6477 64B6x 64918 
SCKSWR 033550 67798 7277 
SCHTAG O11 177pe 2907 2908 aale 29222823 ae 
= 
SOM = 18068 18078 18088 18098 18108 18118 16128 
SCNTLC 34460 6734 6815 69438 
SCNTLG 34472 F 
SCUTLU Os46S aes 6918) baHHe 
Sr bolsce 18i6e 3140 3205 3401 3442 3443 3727 3774 4175 4176 6390 6415 6459 
6494 ba23, 6943 7004 BESS BED BB70 BRS (BBN 
SDBLK 032546 6518 ‘ 
SDE2D 70568 7118 
$0820 034662 4173 70158 
SOOM) 001274 18678 
SODM1 001 18688 
SDOW1O 001 18778 
Soult 001 18788 
001 18798 
SOOML3 00125 18808 
SOOW14 001330 18818 
cue Set 
901302 18708 
SOO = 001304 18718 
SOOWS 001306 18728 
$00 001310 18738 
Sous 1314 levee 
tt 
SD0KS OoLai6 1e7es 
sever Ooieep (eee pgs 3029" ©3383 S001 S002 
SDOAGN Ge4O40 S106 5115 Si2is 
SOTBL 032536 6521 65568 
SENDAO 024030 1291 51178 6410 
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DZR6JD.P11 28-JAN-77 NCE TABLE -- USER S 
T 1088 
ioe Bo ip Siese 
1 ra 8 pieie 64 657. 7 
fem Sola OM tc 
SECPCT 023770 Saoee S10S8 e108 e1a78 wea —_ 
eae Bi fot 
031650 2916 63758 
cai ] He ed 638S* 6386 6415 8636 B6Y43 86S2 8660 8671 8683 
ll r } % 41 
ll 18138 cabs soe? oe S43S% SYysx S4SS* S46S# SuQcx S489% 6138% 6185 6189% 
SETABL 001230 g 
SETEND OO1334 1317 188S8 
SFATAL OOlele 1625@ 6601 
SFFL 03302 6564% 6567% £6595 6604% #66128 
LL Liss 16038 BU53 6494 
il 1 @ 6494 
1l 1 8 
T 1 17898 
51148 
SGTSHR 033640 68018 7275 
SHD = Q00000 947 
Sloe 1000 paige . 
ll . 7 % 
ont a irae foes 67 Exon 6360 
SITE@S OO1114 17648  6386% 6394 6415 BEY 
a eect Bost ie 6494 6933 6343 7004 
ll 17818 * 6168 6337% 6353% 6358 6360 
SLPERR eotLie 17oee 2927% $490 6021 6024 6195 6337 6354* 6360 640S 
1 18S48 
ier 
SMAIL 001210 1313 1317 18238 2944 5151 6352 6392 6438 
SMAMS1 001240 18448 
1244 18S28 
! 1 # 


6571 6606* 66108 
6584 
6587 6599 6603% 
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UN AGNOST T -JAN- : 
DURGID.PLl  26-JN-?? 11:05 CROSS REFERENCE TAMLE =~ UseA S¥neoLs '* tg 
SMXCNT 03164 6350 63608 
SNULL_ 001154 le0ee 6465 6494 
SNWTST= 000001 30618 a3 31068 on. 32608 =. anee — an ate 34458 a0 34768 
T18. 305" Geeia Hee" TeBbe HRAS" Shee | SbCE oe be 
033246 6650# 6679% 66928 
034764 s4e4 7017 704e8 


bb68 66948 
63578 
5031 S10e# S103% Sill S124 6344 6361 
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8888 
be be be be 
% 


ae 
ch 
uy 


6415 6494 6855 6926 3866943 7001 7004 
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69658 7280 
6884s 
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4 lle 
cau Balk 2914 2916 2318 2920 23922 2923 2924 2926 5100 5148 6312 
6376 6402 6410 6738 6743 6744 6774 6950 
SSTLP = 28778 
§SUPRS 3441 ye 71338 
SSVPC = 1e898 1294 
SSWR = 8 7 | 5 957 958 18le 1813 1814 
a SS 
mel see sre ee ey as Ses bome igre Slee lek 
6341 2 63554 6357 6360 6367 6358 6369 6370 6371 6380 6387 6339 
i is Bulg 
Sex: 0000 eee 5 6307 6308 329 x ip 
siren gies a a a a 
397ee 4093% 44e08s 4674% j4998% S0e8* S101% 6340% 6347 6350% 6360 
1 POLG r 7 b730 6755 6783 6810 
8 Qe a % o 
STKINT pence , : oe 3744 67148 6735 6796 
sikaie Geel NR oe cla al cn 
7 16% 14 x * 
rey es daa 
STKERV 1144 a 6720% 6751% 6753 6759% 6781 6797% 6807 6819%  6839%: 
STMHPO ll 1h Brae 3732% 3733% $3734 3736 3738 4Y4USBx 448ex 478S* 4809s 
Stes 1162 18078 Se 4465 4490% 4555 n 144 47B6% 4791 4817% 4876 4938 
1164 18088 4Si1 4516 4521 y 4S31 4536 4S4ls 42 4SS1 4uOs3 4605 
4609 4614% 44615 4837% 4872 4874 4926 4930 493S* 4936 
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Tye OTRGNOSTIC PART 3 
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recy 7 ( poe. war i eo ce 


4S44# 4565 46 16% 
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8 4664 46748 
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Nie 
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SEQ 0195 
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3964 39728 4072 40938 
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4125 4395 4434 4829-44912 
3171 3187 3192 3214 3237 3241 3eS2 32870 3e92——is«S3808 
sve 3396 S818 NSB 3465 S470) S474 634900 CSS OCS7 = Sel 3S4e 
3954 3957 3567 3576 3578 3579 398 393 3897 S07 Sel 
333 340 3b44 636490 3654 0S 3656 3676 3631 3% 3706 37ile 
3797 3682S (iii 8T—iNN? (Gs 3S 3859 3867 38. 33871 3900 (9919s 3927s 38 
336 390 3976 3985 399% 4010 4015 4019 40eS 4029 4033 
40S0 4051 4054 4057 4068 4097 Ylle 4116 4leB 4129 8641390 
4141 "5 6 Ws WS “eis iss —— kee 4% 4277 8=64290 
4310 4311 4314 4318 39 60 NSHtCSY 4351 4352 = 4353) 4354: 43861 
43989 «644398 )—_4399 #400 HHO “yy 6S lO Mel DSC CMS OMS 
“eo UU DCU OOS CUE OSS —— Ss SS B77 
4653 4654 4655 4656 4678 4701 va % 4733 «64742 i4N7S9—s«N7EO 
4774—_ 4789s «4B “ee 4833 4835 4849 4857 
4900 «60 449034915 4916S 4917 49Se 4959 eS Se 
sosg. «5503 4«= 8508 =—s_s« Sle 5553 6069 6081 
6115 6118 612e5 6128 
4340 4583 642 4963 

3262 3406 3478 8 8§=©635028 

38838 40728 46648 4666 

3404 3659 4072 8664198 

7189 

6967 

3411 3671 4092 =: 4207 

7275 7280 

S416 3876 

1771 3274 3362 


D16 
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3370 3404 3410 3445 ee 347% 4869348203502 s3S1S 3659S 3670s 38123819 Ss «3883 3894 
3%4 3970 ous 4091 Pe 4206 4664 4672 4987 +4996 S006 5S0c6 
6 6620 486 689 


$092 66299 6363 
6417 6496 6774 6789 6860 6884 #6953 70068 7045 7107 7125 7148 
719 8=67240 8842 
SWRSU 0788 29288 
TRNTRP 18 
C 10788 Sill 
TYPNAM =: 10788 
TYPNUMN ©: 10788 
TyPpocs 10788 3141 32008 3247395 722)SSs769)0Sss3788)«=—s« S073) ss S382 )=Ss«s160=—ss« 2S 
TYPOCT 10788 6802 
TYPTXT 10788 
WOATA 1S3$8 4273 
WRCHK 16208 4325 4411 4568 4627 4889 4948 
WRHDR 14308 4e48 4716 
SSCNRE 17698 
SSCMTM ines 1806 1807 1808 1803 1810 1811 
SSNEWT a a08) ah0e 3260 3362 NON SHS (Ge HK7E“—s=—ia=2HR2®—<GsiCiSG—_— B22 3889 KH = 072s 41:98 
SSSET cenie 7270 7271 7272 7273 7275 7277 7278 7279 7280 7281 7282 7283 
SSSKIP 10788 3049 3099 #3175 3305 3416 3459) 347300 «63870063876 )6=64150 §8=— 5003 
-EQUAT 9338 9368 
-HEADE 9338 937 
-SETUP 9338 2877 
- SMRHI $3380 N47 
-SMRLO 9338 869598 
- SACTI $338 1285 
-SAPTB = 18198 
-SAPTH 89338 8§612% 
-SAPTY 3338 6561 
-SCATC 9338 1268 
-SCHTA 9338 1769 
-S0B2D 9338 7043 
-S0B20 9338 7004 
- SEOP $338 5090 
-SERRO 9338 6361 
- SMULT 9338 7146 
-SRDOC 9338 6951 
-SREAD 9338 6695 
, saeye $338 7193 
, $338 7105 
-SSCOP 9338 6297 
-SSUPR 9338 7123 
-STRAP 9338 7238 
-STYPD 9338 6494 
-STYPE 9338 6415 
-STYPO 9338 6618 


- ABS. OS74l2 000 


% ERRORS DETECTED: 0 HARD 2 SOFT 


UNTBUS a DRIVE quer te PART 3 MACY11_ 27( 1006) 
DZR6JD.P11 


E16 


31-JAN-77 p8: 30 PAGE 200 
NAMES 


28-JAN-77 11:05 CROSS REFERENCE TABLE -- MACRO 


DEFAULT GLOBALS GENERATED: 0 
DZR6JD, OZRbJD. SEQ/SOL/CRF /NL: TOC/DOC=DZR6JD.P11 
TIME: 23 CONDS 


RUN- ae 
RUN-TIME RATIO: 482/47=10.2 
CORE USED: 31K (62 PAGES) 


DOCUMENT PAGES: 198 


SEQ 0198 


